/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / term / sun-mouse.elc.z / sun-mouse.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 35 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:51 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 65 72 6d |s-20.3/l|isp/term|
|000000a0| 2f 73 75 6e 2d 6d 6f 75 | 73 65 2e 65 6c 0a 3b 3b |/sun-mou|se.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 73 75 6e 2d 6d |  (error| "`sun-m|
|000001f0| 6f 75 73 65 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |ouse.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 23 | 40 31 31 33 20 2a 4e 75 |il))...#|@113 *Nu|
|00000260| 6d 62 65 72 20 6f 66 20 | 6d 69 6c 6c 69 73 65 63 |mber of |millisec|
|00000270| 6f 6e 64 73 20 74 6f 20 | 77 61 69 74 20 66 6f 72 |onds to |wait for|
|00000280| 20 61 6e 20 65 78 74 72 | 61 20 63 6c 69 63 6b 2e | an extr|a click.|
|00000290| 0a 53 65 74 20 74 68 69 | 73 20 74 6f 20 7a 65 72 |.Set thi|s to zer|
|000002a0| 6f 20 69 66 20 79 6f 75 | 20 64 6f 6e 27 74 20 77 |o if you| don't w|
|000002b0| 61 6e 74 20 63 68 6f 72 | 64 73 20 6f 72 20 64 6f |ant chor|ds or do|
|000002c0| 75 62 6c 65 20 63 6c 69 | 63 6b 73 2e 1f 0a 28 64 |uble cli|cks...(d|
|000002d0| 65 66 76 61 72 20 65 78 | 74 72 61 2d 63 6c 69 63 |efvar ex|tra-clic|
|000002e0| 6b 2d 77 61 69 74 20 31 | 35 30 20 28 23 24 20 2e |k-wait 1|50 (#$ .|
|000002f0| 20 2d 36 30 35 29 29 0a | 23 40 32 36 34 20 2a 54 | -605)).|#@264 *T|
|00000300| 68 65 20 63 68 61 72 61 | 63 74 65 72 20 77 69 64 |he chara|cter wid|
|00000310| 74 68 20 6f 66 20 74 68 | 65 20 73 63 72 6f 6c 6c |th of th|e scroll|
|00000320| 62 61 72 2e 0a 54 68 65 | 20 63 75 72 73 6f 72 20 |bar..The| cursor |
|00000330| 69 73 20 64 65 65 6d 65 | 64 20 74 6f 20 62 65 20 |is deeme|d to be |
|00000340| 69 6e 20 74 68 65 20 72 | 69 67 68 74 20 65 64 67 |in the r|ight edg|
|00000350| 65 20 73 63 72 6f 6c 6c | 62 61 72 20 69 66 20 69 |e scroll|bar if i|
|00000360| 74 20 69 73 20 74 68 69 | 73 20 6e 65 61 72 20 74 |t is thi|s near t|
|00000370| 68 65 0a 72 69 67 68 74 | 20 65 64 67 65 2c 20 61 |he.right| edge, a|
|00000380| 6e 64 20 6d 6f 72 65 20 | 74 68 61 6e 20 74 77 6f |nd more |than two|
|00000390| 20 63 68 61 72 73 20 70 | 61 73 74 20 74 68 65 20 | chars p|ast the |
|000003a0| 65 6e 64 20 6f 66 20 74 | 68 65 20 69 6e 64 69 63 |end of t|he indic|
|000003b0| 61 74 65 64 20 6c 69 6e | 65 2e 0a 53 65 74 74 69 |ated lin|e..Setti|
|000003c0| 6e 67 20 74 6f 20 6e 69 | 6c 20 6c 69 6d 69 74 73 |ng to ni|l limits|
|000003d0| 20 74 68 65 20 73 63 72 | 6f 6c 6c 62 61 72 20 74 | the scr|ollbar t|
|000003e0| 6f 20 74 68 65 20 65 64 | 67 65 20 6f 72 20 76 65 |o the ed|ge or ve|
|000003f0| 72 74 69 63 61 6c 20 64 | 69 76 69 64 69 6e 67 20 |rtical d|ividing |
|00000400| 62 61 72 2e 1f 0a 28 64 | 65 66 76 61 72 20 73 63 |bar...(d|efvar sc|
|00000410| 72 6f 6c 6c 62 61 72 2d | 77 69 64 74 68 20 35 20 |rollbar-|width 5 |
|00000420| 28 23 24 20 2e 20 2d 37 | 36 36 29 29 0a 23 40 32 |(#$ . -7|66)).#@2|
|00000430| 35 20 52 65 74 75 72 6e | 73 20 61 20 6e 65 77 20 |5 Return|s a new |
|00000440| 6d 6f 75 73 65 6d 61 70 | 2e 1f 0a 28 64 65 66 61 |mousemap|...(defa|
|00000450| 6c 69 61 73 20 27 6d 61 | 6b 65 2d 6d 6f 75 73 65 |lias 'ma|ke-mouse|
|00000460| 6d 61 70 20 23 5b 6e 69 | 6c 20 22 c0 c1 42 87 22 |map #[ni|l "..B."|
|00000470| 20 5b 6d 6f 75 73 65 6d | 61 70 20 6e 69 6c 5d 20 | [mousem|ap nil] |
|00000480| 32 20 28 23 24 20 2e 20 | 31 30 37 34 29 5d 29 0a |2 (#$ . |1074)]).|
|00000490| 23 40 32 38 20 52 65 74 | 75 72 6e 20 61 20 63 6f |#@28 Ret|urn a co|
|000004a0| 70 79 20 6f 66 20 6d 6f | 75 73 65 6d 61 70 2e 1f |py of mo|usemap..|
|000004b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6f 70 79 |.(defali|as 'copy|
|000004c0| 2d 6d 6f 75 73 65 6d 61 | 70 20 23 5b 28 6d 6f 75 |-mousema|p #[(mou|
|000004d0| 73 65 6d 61 70 29 20 22 | c0 09 21 87 22 20 5b 63 |semap) "|..!." [c|
|000004e0| 6f 70 79 2d 61 6c 69 73 | 74 20 6d 6f 75 73 65 6d |opy-alis|t mousem|
|000004f0| 61 70 5d 20 32 20 28 23 | 24 20 2e 20 31 31 37 33 |ap] 2 (#|$ . 1173|
|00000500| 29 5d 29 0a 23 40 37 33 | 36 20 41 72 67 73 20 4d |)]).#@73|6 Args M|
|00000510| 4f 55 53 45 4d 41 50 2c | 20 4d 4f 55 53 45 2d 4c |OUSEMAP,| MOUSE-L|
|00000520| 49 53 54 2c 20 44 45 46 | 2e 20 20 44 65 66 69 6e |IST, DEF|.  Defin|
|00000530| 65 20 4d 4f 55 53 45 2d | 4c 49 53 54 20 69 6e 20 |e MOUSE-|LIST in |
|00000540| 4d 4f 55 53 45 4d 41 50 | 20 61 73 20 44 45 46 2e |MOUSEMAP| as DEF.|
|00000550| 0a 4d 4f 55 53 45 2d 4c | 49 53 54 20 69 73 20 61 |.MOUSE-L|IST is a|
|00000560| 20 6c 69 73 74 20 6f 66 | 20 61 74 6f 6d 73 20 73 | list of| atoms s|
|00000570| 70 65 63 69 66 79 69 6e | 67 20 61 20 6d 6f 75 73 |pecifyin|g a mous|
|00000580| 65 20 68 69 74 20 61 63 | 63 6f 72 64 69 6e 67 20 |e hit ac|cording |
|00000590| 74 6f 20 74 68 65 73 65 | 20 72 75 6c 65 73 3a 0a |to these| rules:.|
|000005a0| 20 20 2a 20 4f 6e 65 20 | 6f 66 20 74 68 65 73 65 |  * One |of these|
|000005b0| 20 61 74 6f 6d 73 20 73 | 70 65 63 69 66 69 65 73 | atoms s|pecifies|
|000005c0| 20 74 68 65 20 61 63 74 | 69 76 65 20 72 65 67 69 | the act|ive regi|
|000005d0| 6f 6e 20 6f 66 20 74 68 | 65 20 64 65 66 69 6e 69 |on of th|e defini|
|000005e0| 74 69 6f 6e 2e 0a 09 74 | 65 78 74 2c 20 73 63 72 |tion...t|ext, scr|
|000005f0| 6f 6c 6c 62 61 72 2c 20 | 6d 6f 64 65 6c 69 6e 65 |ollbar, |modeline|
|00000600| 2c 20 6d 69 6e 69 62 75 | 66 66 65 72 0a 20 20 2a |, minibu|ffer.  *|
|00000610| 20 4f 6e 65 20 6f 72 20 | 74 77 6f 20 6f 72 20 74 | One or |two or t|
|00000620| 68 65 73 65 20 61 74 6f | 6d 73 20 73 70 65 63 69 |hese ato|ms speci|
|00000630| 66 79 20 74 68 65 20 62 | 75 74 74 6f 6e 20 6f 72 |fy the b|utton or|
|00000640| 20 62 75 74 74 6f 6e 20 | 63 6f 6d 62 69 6e 61 74 | button |combinat|
|00000650| 69 6f 6e 2e 0a 20 20 20 | 20 20 20 20 20 6c 65 66 |ion..   |     lef|
|00000660| 74 2c 20 6d 69 64 64 6c | 65 2c 20 72 69 67 68 74 |t, middl|e, right|
|00000670| 2c 20 64 6f 75 62 6c 65 | 0a 20 20 2a 20 41 6e 79 |, double|.  * Any|
|00000680| 20 63 6f 6d 62 69 6e 61 | 74 69 6f 6e 20 6f 66 20 | combina|tion of |
|00000690| 74 68 65 73 65 20 61 74 | 6f 6d 73 20 73 70 65 63 |these at|oms spec|
|000006a0| 69 66 79 20 74 68 65 20 | 61 63 74 69 76 65 20 73 |ify the |active s|
|000006b0| 68 69 66 74 20 6b 65 79 | 73 2e 0a 20 20 20 20 20 |hift key|s..     |
|000006c0| 20 20 20 63 6f 6e 74 72 | 6f 6c 2c 20 73 68 69 66 |   contr|ol, shif|
|000006d0| 74 2c 20 6d 65 74 61 0a | 20 20 2a 20 57 69 74 68 |t, meta.|  * With|
|000006e0| 20 61 20 73 69 6e 67 6c | 65 20 75 6e 73 68 69 66 | a singl|e unshif|
|000006f0| 74 65 64 20 62 75 74 74 | 6f 6e 2c 20 79 6f 75 20 |ted butt|on, you |
|00000700| 63 61 6e 20 61 64 64 0a | 09 75 70 0a 20 20 20 20 |can add.|.up.    |
|00000710| 74 6f 20 69 6e 64 69 63 | 61 74 65 20 61 6e 20 75 |to indic|ate an u|
|00000720| 70 2d 63 6c 69 63 6b 2e | 0a 54 68 65 20 61 74 6f |p-click.|.The ato|
|00000730| 6d 20 60 64 6f 75 62 6c | 65 27 20 69 73 20 75 73 |m `doubl|e' is us|
|00000740| 65 64 20 77 69 74 68 20 | 61 20 62 75 74 74 6f 6e |ed with |a button|
|00000750| 20 64 65 73 69 67 6e 61 | 74 6f 72 20 74 6f 20 64 | designa|tor to d|
|00000760| 65 6e 6f 74 65 20 61 20 | 64 6f 75 62 6c 65 20 63 |enote a |double c|
|00000770| 6c 69 63 6b 2e 0a 54 77 | 6f 20 62 75 74 74 6f 6e |lick..Tw|o button|
|00000780| 20 63 68 6f 72 64 73 20 | 61 72 65 20 64 65 6e 6f | chords |are deno|
|00000790| 74 65 64 20 62 79 20 6c | 69 73 74 69 6e 67 20 74 |ted by l|isting t|
|000007a0| 68 65 20 74 77 6f 20 62 | 75 74 74 6f 6e 73 2e 0a |he two b|uttons..|
|000007b0| 53 65 65 20 73 75 6e 2d | 6d 6f 75 73 65 2d 68 61 |See sun-|mouse-ha|
|000007c0| 6e 64 6c 65 72 20 66 6f | 72 20 74 68 65 20 74 72 |ndler fo|r the tr|
|000007d0| 65 61 74 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 66 |eatment |of the f|
|000007e0| 6f 72 6d 20 44 45 46 2e | 1f 0a 28 64 65 66 61 6c |orm DEF.|..(defal|
|000007f0| 69 61 73 20 27 64 65 66 | 69 6e 65 2d 6d 6f 75 73 |ias 'def|ine-mous|
|00000800| 65 20 23 5b 28 6d 6f 75 | 73 65 6d 61 70 20 6d 6f |e #[(mou|semap mo|
|00000810| 75 73 65 2d 6c 69 73 74 | 20 64 65 66 29 20 22 c0 |use-list| def) ".|
|00000820| c1 5c 6e 21 0b 0c 23 87 | 22 20 5b 6d 6f 75 73 65 |.\n!..#.|" [mouse|
|00000830| 6d 61 70 2d 73 65 74 20 | 6d 6f 75 73 65 2d 6c 69 |map-set |mouse-li|
|00000840| 73 74 2d 74 6f 2d 6d 6f | 75 73 65 2d 63 6f 64 65 |st-to-mo|use-code|
|00000850| 20 6d 6f 75 73 65 2d 6c | 69 73 74 20 6d 6f 75 73 | mouse-l|ist mous|
|00000860| 65 6d 61 70 20 64 65 66 | 5d 20 34 20 28 23 24 20 |emap def|] 4 (#$ |
|00000870| 2e 20 31 32 39 30 29 5d | 29 0a 23 40 32 35 39 20 |. 1290)]|).#@259 |
|00000880| 47 69 76 65 20 4d 4f 55 | 53 45 2d 45 56 45 4e 54 |Give MOU|SE-EVENT|
|00000890| 2d 4c 49 53 54 20 61 20 | 6c 6f 63 61 6c 20 64 65 |-LIST a |local de|
|000008a0| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 44 45 46 2e |finition| of DEF.|
|000008b0| 0a 53 65 65 20 64 65 66 | 69 6e 65 2d 6d 6f 75 73 |.See def|ine-mous|
|000008c0| 65 20 66 6f 72 20 61 20 | 64 65 73 63 72 69 70 74 |e for a |descript|
|000008d0| 69 6f 6e 20 6f 66 20 4d | 4f 55 53 45 2d 45 56 45 |ion of M|OUSE-EVE|
|000008e0| 4e 54 2d 4c 49 53 54 20 | 61 6e 64 20 44 45 46 2e |NT-LIST |and DEF.|
|000008f0| 0a 4e 6f 74 65 20 74 68 | 61 74 20 69 66 20 4d 4f |.Note th|at if MO|
|00000900| 55 53 45 2d 45 56 45 4e | 54 2d 4c 49 53 54 20 68 |USE-EVEN|T-LIST h|
|00000910| 61 73 20 61 20 6c 6f 63 | 61 6c 20 64 65 66 69 6e |as a loc|al defin|
|00000920| 69 74 69 6f 6e 20 69 6e | 20 74 68 65 20 63 75 72 |ition in| the cur|
|00000930| 72 65 6e 74 20 62 75 66 | 66 65 72 2c 0a 74 68 61 |rent buf|fer,.tha|
|00000940| 74 20 6c 6f 63 61 6c 20 | 64 65 66 69 6e 69 74 69 |t local |definiti|
|00000950| 6f 6e 20 77 69 6c 6c 20 | 63 6f 6e 74 69 6e 75 65 |on will |continue|
|00000960| 20 74 6f 20 73 68 61 64 | 6f 77 20 61 6e 79 20 67 | to shad|ow any g|
|00000970| 6c 6f 62 61 6c 20 64 65 | 66 69 6e 69 74 69 6f 6e |lobal de|finition|
|00000980| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6c |...(defa|lias 'gl|
|00000990| 6f 62 61 6c 2d 73 65 74 | 2d 6d 6f 75 73 65 20 23 |obal-set|-mouse #|
|000009a0| 5b 28 6d 6f 75 73 65 2d | 6c 69 73 74 20 64 65 66 |[(mouse-|list def|
|000009b0| 29 20 22 c0 09 5c 6e 0b | 23 87 22 20 5b 64 65 66 |) "..\n.|#." [def|
|000009c0| 69 6e 65 2d 6d 6f 75 73 | 65 20 63 75 72 72 65 6e |ine-mous|e curren|
|000009d0| 74 2d 67 6c 6f 62 61 6c | 2d 6d 6f 75 73 65 6d 61 |t-global|-mousema|
|000009e0| 70 20 6d 6f 75 73 65 2d | 6c 69 73 74 20 64 65 66 |p mouse-|list def|
|000009f0| 5d 20 34 20 28 23 24 20 | 2e 20 32 31 37 36 29 20 |] 4 (#$ |. 2176) |
|00000a00| 22 78 4d 6f 75 73 65 20 | 65 76 65 6e 74 3a 20 5c |"xMouse |event: \|
|00000a10| 6e 78 44 65 66 69 6e 69 | 74 69 6f 6e 3a 20 22 5d |nxDefini|tion: "]|
|00000a20| 29 0a 23 40 32 32 37 20 | 47 69 76 65 20 4d 4f 55 |).#@227 |Give MOU|
|00000a30| 53 45 2d 45 56 45 4e 54 | 2d 4c 49 53 54 20 61 20 |SE-EVENT|-LIST a |
|00000a40| 6c 6f 63 61 6c 20 64 65 | 66 69 6e 69 74 69 6f 6e |local de|finition|
|00000a50| 20 6f 66 20 44 45 46 2e | 0a 53 65 65 20 64 65 66 | of DEF.|.See def|
|00000a60| 69 6e 65 2d 6d 6f 75 73 | 65 20 66 6f 72 20 61 20 |ine-mous|e for a |
|00000a70| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 74 |descript|ion of t|
|00000a80| 68 65 20 61 72 67 75 6d | 65 6e 74 73 2e 0a 54 68 |he argum|ents..Th|
|00000a90| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 67 6f 65 |e defini|tion goe|
|00000aa0| 73 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |s in the| current|
|00000ab0| 20 62 75 66 66 65 72 27 | 73 20 6c 6f 63 61 6c 20 | buffer'|s local |
|00000ac0| 6d 6f 75 73 65 6d 61 70 | 2e 0a 4e 6f 72 6d 61 6c |mousemap|..Normal|
|00000ad0| 6c 79 20 62 75 66 66 65 | 72 73 20 69 6e 20 74 68 |ly buffe|rs in th|
|00000ae0| 65 20 73 61 6d 65 20 6d | 61 6a 6f 72 20 6d 6f 64 |e same m|ajor mod|
|00000af0| 65 20 73 68 61 72 65 20 | 61 20 6c 6f 63 61 6c 20 |e share |a local |
|00000b00| 6d 6f 75 73 65 6d 61 70 | 2e 1f 0a 28 64 65 66 61 |mousemap|...(defa|
|00000b10| 6c 69 61 73 20 27 6c 6f | 63 61 6c 2d 73 65 74 2d |lias 'lo|cal-set-|
|00000b20| 6d 6f 75 73 65 20 23 5b | 28 6d 6f 75 73 65 2d 6c |mouse #[|(mouse-l|
|00000b30| 69 73 74 20 64 65 66 29 | 20 22 08 ac 83 c1 20 10 |ist def)| ".... .|
|00000b40| c2 08 0b 0c 23 87 22 20 | 5b 63 75 72 72 65 6e 74 |....#." |[current|
|00000b50| 2d 6c 6f 63 61 6c 2d 6d | 6f 75 73 65 6d 61 70 20 |-local-m|ousemap |
|00000b60| 6d 61 6b 65 2d 6d 6f 75 | 73 65 6d 61 70 20 64 65 |make-mou|semap de|
|00000b70| 66 69 6e 65 2d 6d 6f 75 | 73 65 20 6d 6f 75 73 65 |fine-mou|se mouse|
|00000b80| 2d 6c 69 73 74 20 64 65 | 66 5d 20 34 20 28 23 24 |-list de|f] 4 (#$|
|00000b90| 20 2e 20 32 36 30 30 29 | 20 22 78 4d 6f 75 73 65 | . 2600)| "xMouse|
|00000ba0| 20 65 76 65 6e 74 3a 20 | 5c 6e 78 44 65 66 69 6e | event: |\nxDefin|
|00000bb0| 69 74 69 6f 6e 3a 20 22 | 5d 29 0a 23 40 34 32 20 |ition: "|]).#@42 |
|00000bc0| 53 65 6c 65 63 74 73 20 | 4d 4f 55 53 45 4d 41 50 |Selects |MOUSEMAP|
|00000bd0| 20 61 73 20 74 68 65 20 | 67 6c 6f 62 61 6c 20 6d | as the |global m|
|00000be0| 6f 75 73 65 6d 61 70 2e | 1f 0a 28 64 65 66 61 6c |ousemap.|..(defal|
|00000bf0| 69 61 73 20 27 75 73 65 | 2d 67 6c 6f 62 61 6c 2d |ias 'use|-global-|
|00000c00| 6d 6f 75 73 65 6d 61 70 | 20 23 5b 28 6d 6f 75 73 |mousemap| #[(mous|
|00000c10| 65 6d 61 70 29 20 22 08 | 89 11 87 22 20 5b 6d 6f |emap) ".|..." [mo|
|00000c20| 75 73 65 6d 61 70 20 63 | 75 72 72 65 6e 74 2d 67 |usemap c|urrent-g|
|00000c30| 6c 6f 62 61 6c 2d 6d 6f | 75 73 65 6d 61 70 5d 20 |lobal-mo|usemap] |
|00000c40| 32 20 28 23 24 20 2e 20 | 33 30 30 38 29 5d 29 0a |2 (#$ . |3008)]).|
|00000c50| 23 40 38 33 20 53 65 6c | 65 63 74 73 20 4d 4f 55 |#@83 Sel|ects MOU|
|00000c60| 53 45 4d 41 50 20 61 73 | 20 74 68 65 20 6c 6f 63 |SEMAP as| the loc|
|00000c70| 61 6c 20 6d 6f 75 73 65 | 6d 61 70 2e 0a 6e 69 6c |al mouse|map..nil|
|00000c80| 20 66 6f 72 20 4d 4f 55 | 53 45 4d 41 50 20 6d 65 | for MOU|SEMAP me|
|00000c90| 61 6e 73 20 6e 6f 20 6c | 6f 63 61 6c 20 6d 6f 75 |ans no l|ocal mou|
|00000ca0| 73 65 6d 61 70 2e 1f 0a | 28 64 65 66 61 6c 69 61 |semap...|(defalia|
|00000cb0| 73 20 27 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 6f 75 |s 'use-l|ocal-mou|
|00000cc0| 73 65 6d 61 70 20 23 5b | 28 6d 6f 75 73 65 6d 61 |semap #[|(mousema|
|00000cd0| 70 29 20 22 08 89 11 87 | 22 20 5b 6d 6f 75 73 65 |p) "....|" [mouse|
|00000ce0| 6d 61 70 20 63 75 72 72 | 65 6e 74 2d 6c 6f 63 61 |map curr|ent-loca|
|00000cf0| 6c 2d 6d 6f 75 73 65 6d | 61 70 5d 20 32 20 28 23 |l-mousem|ap] 2 (#|
|00000d00| 24 20 2e 20 33 31 35 37 | 29 5d 29 0a 23 40 39 39 |$ . 3157|)]).#@99|
|00000d10| 20 54 72 75 65 20 69 66 | 20 61 6e 79 20 62 69 74 | True if| any bit|
|00000d20| 73 20 73 65 74 20 69 6e | 20 58 20 61 72 65 20 61 |s set in| X are a|
|00000d30| 6c 73 6f 20 73 65 74 20 | 69 6e 20 59 2e 0a 4a 75 |lso set |in Y..Ju|
|00000d40| 73 74 20 6c 69 6b 65 20 | 74 68 65 20 43 6f 6d 6d |st like |the Comm|
|00000d50| 6f 6e 20 4c 69 73 70 20 | 66 75 6e 63 74 69 6f 6e |on Lisp |function|
|00000d60| 20 6f 66 20 74 68 65 20 | 73 61 6d 65 20 6e 61 6d | of the |same nam|
|00000d70| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |e...(def|alias 'l|
|00000d80| 6f 67 74 65 73 74 20 23 | 5b 28 78 20 79 29 20 22 |ogtest #|[(x y) "|
|00000d90| c0 09 5c 6e 5c 22 c3 55 | 3f 87 22 20 5b 6c 6f 67 |..\n\".U|?." [log|
|00000da0| 61 6e 64 20 78 20 79 20 | 30 5d 20 33 20 28 23 24 |and x y |0] 3 (#$|
|00000db0| 20 2e 20 33 33 34 35 29 | 5d 29 0a 28 62 79 74 65 | . 3345)|]).(byte|
|00000dc0| 2d 63 6f 64 65 20 22 c0 | 11 c1 5c 6e 42 12 c3 14 |-code ".|..\nB...|
|00000dd0| c4 5c 6e 42 12 c5 16 06 | c6 5c 6e 42 12 c7 16 08 |.\nB....|.\nB....|
|00000de0| c8 5c 6e 42 12 c0 87 22 | 20 5b 37 20 73 6d 3a 3a |.\nB..."| [7 sm::|
|00000df0| 42 75 74 74 6f 6e 42 69 | 74 73 20 63 75 72 72 65 |ButtonBi|ts curre|
|00000e00| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 35 36 20 |nt-load-|list 56 |
|00000e10| 73 6d 3a 3a 53 68 69 66 | 74 6d 61 73 6b 42 69 74 |sm::Shif|tmaskBit|
|00000e20| 73 20 36 34 20 73 6d 3a | 3a 44 6f 75 62 6c 65 42 |s 64 sm:|:DoubleB|
|00000e30| 69 74 73 20 31 32 38 20 | 73 6d 3a 3a 55 70 42 69 |its 128 |sm::UpBi|
|00000e40| 74 73 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |ts] 2).(|defalias|
|00000e50| 20 27 73 6d 3a 3a 68 69 | 74 2d 63 6f 64 65 20 27 | 'sm::hi|t-code '|
|00000e60| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 68 69 74 29 |(macro .| #[(hit)|
|00000e70| 20 22 c0 c1 5c 6e 45 87 | 22 20 5b 6e 74 68 20 30 | "..\nE.|" [nth 0|
|00000e80| 20 68 69 74 5d 20 33 5d | 29 29 0a 28 64 65 66 61 | hit] 3]|)).(defa|
|00000e90| 6c 69 61 73 20 27 73 6d | 3a 3a 68 69 74 2d 62 75 |lias 'sm|::hit-bu|
|00000ea0| 74 74 6f 6e 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |tton '(m|acro . #|
|00000eb0| 5b 28 68 69 74 29 20 22 | c0 c1 c2 c3 0c 45 45 87 |[(hit) "|.....EE.|
|00000ec0| 22 20 5b 6c 6f 67 61 6e | 64 20 73 6d 3a 3a 42 75 |" [logan|d sm::Bu|
|00000ed0| 74 74 6f 6e 42 69 74 73 | 20 6e 74 68 20 30 20 68 |ttonBits| nth 0 h|
|00000ee0| 69 74 5d 20 35 5d 29 29 | 0a 28 64 65 66 61 6c 69 |it] 5]))|.(defali|
|00000ef0| 61 73 20 27 73 6d 3a 3a | 68 69 74 2d 73 68 69 66 |as 'sm::|hit-shif|
|00000f00| 74 6d 61 73 6b 20 27 28 | 6d 61 63 72 6f 20 2e 20 |tmask '(|macro . |
|00000f10| 23 5b 28 68 69 74 29 20 | 22 c0 c1 c2 c3 0c 45 45 |#[(hit) |".....EE|
|00000f20| 87 22 20 5b 6c 6f 67 61 | 6e 64 20 73 6d 3a 3a 53 |." [loga|nd sm::S|
|00000f30| 68 69 66 74 6d 61 73 6b | 42 69 74 73 20 6e 74 68 |hiftmask|Bits nth|
|00000f40| 20 30 20 68 69 74 5d 20 | 35 5d 29 29 0a 28 64 65 | 0 hit] |5])).(de|
|00000f50| 66 61 6c 69 61 73 20 27 | 73 6d 3a 3a 68 69 74 2d |falias '|sm::hit-|
|00000f60| 64 6f 75 62 6c 65 20 27 | 28 6d 61 63 72 6f 20 2e |double '|(macro .|
|00000f70| 20 23 5b 28 68 69 74 29 | 20 22 c0 c1 c2 c3 0c 45 | #[(hit)| ".....E|
|00000f80| 45 87 22 20 5b 6c 6f 67 | 61 6e 64 20 73 6d 3a 3a |E." [log|and sm::|
|00000f90| 44 6f 75 62 6c 65 42 69 | 74 73 20 6e 74 68 20 30 |DoubleBi|ts nth 0|
|00000fa0| 20 68 69 74 5d 20 35 5d | 29 29 0a 28 64 65 66 61 | hit] 5]|)).(defa|
|00000fb0| 6c 69 61 73 20 27 73 6d | 3a 3a 68 69 74 2d 75 70 |lias 'sm|::hit-up|
|00000fc0| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 68 69 | '(macro| . #[(hi|
|00000fd0| 74 29 20 22 c0 c1 c2 c3 | 0c 45 45 87 22 20 5b 6c |t) "....|.EE." [l|
|00000fe0| 6f 67 61 6e 64 20 73 6d | 3a 3a 55 70 42 69 74 73 |ogand sm|::UpBits|
|00000ff0| 20 6e 74 68 20 30 20 68 | 69 74 5d 20 35 5d 29 29 | nth 0 h|it] 5]))|
|00001000| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6d 3a 3a |.(defali|as 'sm::|
|00001010| 68 69 74 2d 78 20 27 28 | 6d 61 63 72 6f 20 2e 20 |hit-x '(|macro . |
|00001020| 23 5b 28 68 69 74 29 20 | 22 c0 c1 5c 6e 45 87 22 |#[(hit) |"..\nE."|
|00001030| 20 5b 6e 74 68 20 31 20 | 68 69 74 5d 20 33 5d 29 | [nth 1 |hit] 3])|
|00001040| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6d 3a |).(defal|ias 'sm:|
|00001050| 3a 68 69 74 2d 79 20 27 | 28 6d 61 63 72 6f 20 2e |:hit-y '|(macro .|
|00001060| 20 23 5b 28 68 69 74 29 | 20 22 c0 c1 5c 6e 45 87 | #[(hit)| "..\nE.|
|00001070| 22 20 5b 6e 74 68 20 32 | 20 68 69 74 5d 20 33 5d |" [nth 2| hit] 3]|
|00001080| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 6d |)).(defa|lias 'sm|
|00001090| 3a 3a 68 69 74 2d 64 65 | 6c 74 61 20 27 28 6d 61 |::hit-de|lta '(ma|
|000010a0| 63 72 6f 20 2e 20 23 5b | 28 68 69 74 29 20 22 c0 |cro . #[|(hit) ".|
|000010b0| c1 5c 6e 45 87 22 20 5b | 6e 74 68 20 33 20 68 69 |.\nE." [|nth 3 hi|
|000010c0| 74 5d 20 33 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |t] 3])).|(defalia|
|000010d0| 73 20 27 73 6d 3a 3a 68 | 69 74 2d 75 70 2d 70 20 |s 'sm::h|it-up-p |
|000010e0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 68 69 74 |'(macro |. #[(hit|
|000010f0| 29 20 22 c0 c1 c2 0b 44 | 44 44 87 22 20 5b 6e 6f |) "....D|DD." [no|
|00001100| 74 20 7a 65 72 6f 70 20 | 73 6d 3a 3a 68 69 74 2d |t zerop |sm::hit-|
|00001110| 75 70 20 68 69 74 5d 20 | 34 5d 29 29 0a 28 64 65 |up hit] |4])).(de|
|00001120| 66 61 6c 69 61 73 20 27 | 73 6d 3a 3a 6c 6f 63 2d |falias '|sm::loc-|
|00001130| 77 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6c |w '(macr|o . #[(l|
|00001140| 6f 63 29 20 22 c0 c1 5c | 6e 45 87 22 20 5b 6e 74 |oc) "..\|nE." [nt|
|00001150| 68 20 30 20 6c 6f 63 5d | 20 33 5d 29 29 0a 28 64 |h 0 loc]| 3])).(d|
|00001160| 65 66 61 6c 69 61 73 20 | 27 73 6d 3a 3a 6c 6f 63 |efalias |'sm::loc|
|00001170| 2d 78 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |-x '(mac|ro . #[(|
|00001180| 6c 6f 63 29 20 22 c0 c1 | 5c 6e 45 87 22 20 5b 6e |loc) "..|\nE." [n|
|00001190| 74 68 20 31 20 6c 6f 63 | 5d 20 33 5d 29 29 0a 28 |th 1 loc|] 3])).(|
|000011a0| 64 65 66 61 6c 69 61 73 | 20 27 73 6d 3a 3a 6c 6f |defalias| 'sm::lo|
|000011b0| 63 2d 79 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |c-y '(ma|cro . #[|
|000011c0| 28 6c 6f 63 29 20 22 c0 | c1 5c 6e 45 87 22 20 5b |(loc) ".|.\nE." [|
|000011d0| 6e 74 68 20 32 20 6c 6f | 63 5d 20 33 5d 29 29 0a |nth 2 lo|c] 3])).|
|000011e0| 23 40 36 32 20 53 77 69 | 74 63 68 20 74 6f 20 57 |#@62 Swi|tch to W|
|000011f0| 49 4e 44 4f 57 2c 20 65 | 76 61 6c 75 61 74 65 20 |INDOW, e|valuate |
|00001200| 46 4f 52 4d 53 2c 20 72 | 65 74 75 72 6e 20 74 6f |FORMS, r|eturn to|
|00001210| 20 6f 72 69 67 69 6e 61 | 6c 20 77 69 6e 64 6f 77 | origina|l window|
|00001220| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 76 |...(defa|lias 'ev|
|00001230| 61 6c 2d 69 6e 2d 77 69 | 6e 64 6f 77 20 27 28 6d |al-in-wi|ndow '(m|
|00001240| 61 63 72 6f 20 2e 20 23 | 5b 28 77 69 6e 64 6f 77 |acro . #|[(window|
|00001250| 20 26 72 65 73 74 20 66 | 6f 72 6d 73 29 20 22 c0 | &rest f|orms) ".|
|00001260| c1 c2 c3 c4 0d 44 0e 06 | 42 42 c7 42 42 45 87 22 |.....D..|BB.BBE."|
|00001270| 20 5b 6c 65 74 20 28 28 | 4f 72 69 67 69 6e 61 6c | [let ((|Original|
|00001280| 6c 79 53 65 6c 65 63 74 | 65 64 57 69 6e 64 6f 77 |lySelect|edWindow|
|00001290| 20 28 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f | (select|ed-windo|
|000012a0| 77 29 29 29 20 75 6e 77 | 69 6e 64 2d 70 72 6f 74 |w))) unw|ind-prot|
|000012b0| 65 63 74 20 70 72 6f 67 | 6e 20 73 65 6c 65 63 74 |ect prog|n select|
|000012c0| 2d 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 20 66 |-window |window f|
|000012d0| 6f 72 6d 73 20 28 28 73 | 65 6c 65 63 74 2d 77 69 |orms ((s|elect-wi|
|000012e0| 6e 64 6f 77 20 4f 72 69 | 67 69 6e 61 6c 6c 79 53 |ndow Ori|ginallyS|
|000012f0| 65 6c 65 63 74 65 64 57 | 69 6e 64 6f 77 29 29 5d |electedW|indow))]|
|00001300| 20 36 20 28 23 24 20 2e | 20 34 35 38 31 29 5d 29 | 6 (#$ .| 4581)])|
|00001310| 29 0a 28 70 75 74 20 27 | 65 76 61 6c 2d 69 6e 2d |).(put '|eval-in-|
|00001320| 77 69 6e 64 6f 77 20 27 | 6c 69 73 70 2d 69 6e 64 |window '|lisp-ind|
|00001330| 65 6e 74 2d 66 75 6e 63 | 74 69 6f 6e 20 31 29 0a |ent-func|tion 1).|
|00001340| 23 40 31 37 30 20 53 77 | 69 74 63 68 65 73 20 74 |#@170 Sw|itches t|
|00001350| 6f 20 65 61 63 68 20 77 | 69 6e 64 6f 77 20 61 6e |o each w|indow an|
|00001360| 64 20 65 76 61 6c 75 61 | 74 65 73 20 46 4f 52 4d |d evalua|tes FORM|
|00001370| 2e 20 20 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 75 |.  Optio|nal argu|
|00001380| 6d 65 6e 74 0a 59 45 53 | 4d 49 4e 49 20 73 61 79 |ment.YES|MINI say|
|00001390| 73 20 74 6f 20 69 6e 63 | 6c 75 64 65 20 74 68 65 |s to inc|lude the|
|000013a0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 61 73 20 61 | minibuf|fer as a|
|000013b0| 20 77 69 6e 64 6f 77 2e | 0a 54 68 69 73 20 69 73 | window.|.This is|
|000013c0| 20 61 20 6d 61 63 72 6f | 2c 20 61 6e 64 20 64 6f | a macro|, and do|
|000013d0| 65 73 20 6e 6f 74 20 65 | 76 61 6c 75 61 74 65 20 |es not e|valuate |
|000013e0| 69 74 73 20 61 72 67 75 | 6d 65 6e 74 73 2e 1f 0a |its argu|ments...|
|000013f0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 76 61 6c 2d |(defalia|s 'eval-|
|00001400| 69 6e 2d 77 69 6e 64 6f | 77 73 20 27 28 6d 61 63 |in-windo|ws '(mac|
|00001410| 72 6f 20 2e 20 23 5b 28 | 66 6f 72 6d 20 26 6f 70 |ro . #[(|form &op|
|00001420| 74 69 6f 6e 61 6c 20 79 | 65 73 6d 69 6e 69 29 20 |tional y|esmini) |
|00001430| 22 c0 c1 c2 c3 c4 0d c6 | c7 c8 c9 ca cb 0e 0c 45 |".......|.......E|
|00001440| 44 45 44 45 44 cd 42 42 | 45 87 22 20 5b 6c 65 74 |DEDED.BB|E." [let|
|00001450| 20 28 28 4f 72 69 67 69 | 6e 61 6c 6c 79 53 65 6c | ((Origi|nallySel|
|00001460| 65 63 74 65 64 57 69 6e | 64 6f 77 20 28 73 65 6c |ectedWin|dow (sel|
|00001470| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 29 29 29 20 |ected-wi|ndow))) |
|00001480| 75 6e 77 69 6e 64 2d 70 | 72 6f 74 65 63 74 20 77 |unwind-p|rotect w|
|00001490| 68 69 6c 65 20 70 72 6f | 67 6e 20 66 6f 72 6d 20 |hile pro|gn form |
|000014a0| 6e 6f 74 20 65 71 20 4f | 72 69 67 69 6e 61 6c 6c |not eq O|riginall|
|000014b0| 79 53 65 6c 65 63 74 65 | 64 57 69 6e 64 6f 77 20 |ySelecte|dWindow |
|000014c0| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 20 6e 65 |select-w|indow ne|
|000014d0| 78 74 2d 77 69 6e 64 6f | 77 20 6e 69 6c 20 79 65 |xt-windo|w nil ye|
|000014e0| 73 6d 69 6e 69 20 28 28 | 73 65 6c 65 63 74 2d 77 |smini ((|select-w|
|000014f0| 69 6e 64 6f 77 20 4f 72 | 69 67 69 6e 61 6c 6c 79 |indow Or|iginally|
|00001500| 53 65 6c 65 63 74 65 64 | 57 69 6e 64 6f 77 29 29 |Selected|Window))|
|00001510| 5d 20 31 33 20 28 23 24 | 20 2e 20 34 39 33 34 29 |] 13 (#$| . 4934)|
|00001520| 5d 29 29 0a 28 70 75 74 | 20 27 65 76 61 6c 2d 69 |])).(put| 'eval-i|
|00001530| 6e 2d 77 69 6e 64 6f 77 | 20 27 6c 69 73 70 2d 69 |n-window| 'lisp-i|
|00001540| 6e 64 65 6e 74 2d 66 75 | 6e 63 74 69 6f 6e 20 30 |ndent-fu|nction 0|
|00001550| 29 0a 23 40 39 37 20 4d | 6f 76 65 20 63 75 72 73 |).#@97 M|ove curs|
|00001560| 6f 72 20 74 6f 20 77 69 | 6e 64 6f 77 20 6c 6f 63 |or to wi|ndow loc|
|00001570| 61 74 69 6f 6e 20 58 2c | 20 59 2e 0a 48 61 6e 64 |ation X,| Y..Hand|
|00001580| 6c 65 73 20 77 72 61 70 | 70 65 64 20 61 6e 64 20 |les wrap|ped and |
|00001590| 68 6f 72 69 7a 6f 6e 74 | 61 6c 6c 79 20 73 63 72 |horizont|ally scr|
|000015a0| 6f 6c 6c 65 64 20 6c 69 | 6e 65 73 20 63 6f 72 72 |olled li|nes corr|
|000015b0| 65 63 74 6c 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ectly...|(defalia|
|000015c0| 73 20 27 6d 6f 76 65 2d | 74 6f 2d 6c 6f 63 20 23 |s 'move-|to-loc #|
|000015d0| 5b 28 78 20 79 29 20 22 | c0 09 21 88 69 c2 c3 20 |[(x y) "|..!.i.. |
|000015e0| c4 55 ab 8b 69 c5 20 c6 | 5a 0e 07 5e 5c 5c aa 8b |.U..i. .|Z..^\\..|
|000015f0| c3 20 c5 20 53 0e 07 5e | 5c 5c c8 5c 5c 21 1e 09 |. . S..^|\\.\\!..|
|00001600| 1e 5c 6e 0e 09 0e 5c 6e | 5a 2a 87 22 20 5b 6d 6f |.\n...\n|Z*." [mo|
|00001610| 76 65 2d 74 6f 2d 77 69 | 6e 64 6f 77 2d 6c 69 6e |ve-to-wi|ndow-lin|
|00001620| 65 20 79 20 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |e y move|-to-colu|
|00001630| 6d 6e 20 77 69 6e 64 6f | 77 2d 68 73 63 72 6f 6c |mn windo|w-hscrol|
|00001640| 6c 20 30 20 77 69 6e 64 | 6f 77 2d 77 69 64 74 68 |l 0 wind|ow-width|
|00001650| 20 32 20 78 20 2d 31 20 | 6e 63 20 63 63 5d 20 35 | 2 x -1 |nc cc] 5|
|00001660| 20 28 23 24 20 2e 20 35 | 34 36 33 29 5d 29 0a 23 | (#$ . 5|463)]).#|
|00001670| 40 33 37 20 54 72 75 65 | 20 69 66 66 20 74 68 69 |@37 True| iff thi|
|00001680| 73 20 57 49 4e 44 4f 57 | 20 69 73 20 6d 69 6e 69 |s WINDOW| is mini|
|00001690| 62 75 66 66 65 72 2e 1f | 0a 28 64 65 66 61 6c 69 |buffer..|.(defali|
|000016a0| 61 73 20 27 6d 69 6e 69 | 62 75 66 66 65 72 2d 77 |as 'mini|buffer-w|
|000016b0| 69 6e 64 6f 77 2d 70 20 | 23 5b 28 77 69 6e 64 6f |indow-p |#[(windo|
|000016c0| 77 29 20 22 c0 20 c1 c2 | 0b 21 38 55 87 22 20 5b |w) ". ..|.!8U." [|
|000016d0| 66 72 61 6d 65 2d 68 65 | 69 67 68 74 20 33 20 77 |frame-he|ight 3 w|
|000016e0| 69 6e 64 6f 77 2d 65 64 | 67 65 73 20 77 69 6e 64 |indow-ed|ges wind|
|000016f0| 6f 77 5d 20 34 20 28 23 | 24 20 2e 20 35 37 34 38 |ow] 4 (#|$ . 5748|
|00001700| 29 5d 29 0a 23 40 34 38 | 32 20 45 76 61 6c 75 61 |)]).#@48|2 Evalua|
|00001710| 74 65 73 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |tes the |function|
|00001720| 20 6f 72 20 6c 69 73 74 | 20 61 73 73 6f 63 69 61 | or list| associa|
|00001730| 74 65 64 20 77 69 74 68 | 20 61 20 6d 6f 75 73 65 |ted with| a mouse|
|00001740| 20 68 69 74 2e 0a 45 78 | 70 65 63 74 69 6e 67 20 | hit..Ex|pecting |
|00001750| 74 6f 20 72 65 61 64 20 | 61 20 68 69 74 2c 20 77 |to read |a hit, w|
|00001760| 68 69 63 68 20 69 73 20 | 61 20 6c 69 73 74 3a 20 |hich is |a list: |
|00001770| 28 62 75 74 74 6f 6e 20 | 78 20 79 20 64 65 6c 74 |(button |x y delt|
|00001780| 61 29 2e 20 20 0a 41 20 | 66 6f 72 6d 20 62 6f 75 |a).  .A |form bou|
|00001790| 6e 64 20 74 6f 20 62 75 | 74 74 6f 6e 20 62 79 20 |nd to bu|tton by |
|000017a0| 64 65 66 69 6e 65 2d 6d | 6f 75 73 65 20 69 73 20 |define-m|ouse is |
|000017b0| 66 6f 75 6e 64 20 62 79 | 20 6d 6f 75 73 65 2d 6c |found by| mouse-l|
|000017c0| 6f 6f 6b 75 70 2e 20 0a | 54 68 65 20 76 61 72 69 |ookup. .|The vari|
|000017d0| 61 62 6c 65 73 3a 20 2a | 6d 6f 75 73 65 2d 77 69 |ables: *|mouse-wi|
|000017e0| 6e 64 6f 77 2a 2c 20 2a | 6d 6f 75 73 65 2d 78 2a |ndow*, *|mouse-x*|
|000017f0| 2c 20 2a 6d 6f 75 73 65 | 2d 79 2a 20 61 72 65 20 |, *mouse|-y* are |
|00001800| 62 6f 75 6e 64 2e 20 20 | 0a 49 66 20 74 68 65 20 |bound.  |.If the |
|00001810| 66 6f 72 6d 20 69 73 20 | 61 20 73 79 6d 62 6f 6c |form is |a symbol|
|00001820| 20 28 73 79 6d 62 6f 6c | 70 29 2c 20 69 74 20 69 | (symbol|p), it i|
|00001830| 73 20 66 75 6e 63 61 6c | 6c 27 65 64 20 77 69 74 |s funcal|l'ed wit|
|00001840| 68 20 2a 6d 6f 75 73 65 | 2d 77 69 6e 64 6f 77 2a |h *mouse|-window*|
|00001850| 2c 0a 2a 6d 6f 75 73 65 | 2d 78 2a 2c 20 61 6e 64 |,.*mouse|-x*, and|
|00001860| 20 2a 6d 6f 75 73 65 2d | 79 2a 20 61 73 20 61 72 | *mouse-|y* as ar|
|00001870| 67 75 6d 65 6e 74 73 3b | 20 69 66 20 74 68 65 20 |guments;| if the |
|00001880| 66 6f 72 6d 20 69 73 20 | 61 20 6c 69 73 74 20 28 |form is |a list (|
|00001890| 6c 69 73 74 70 29 2c 0a | 74 68 65 20 66 6f 72 6d |listp),.|the form|
|000018a0| 20 69 73 20 65 76 61 6c | 27 65 64 3b 20 69 66 20 | is eval|'ed; if |
|000018b0| 74 68 65 20 66 6f 72 6d | 20 69 73 20 6e 65 69 74 |the form| is neit|
|000018c0| 68 65 72 20 6f 66 20 74 | 68 65 73 65 2c 20 69 74 |her of t|hese, it|
|000018d0| 20 69 73 20 61 6e 20 65 | 72 72 6f 72 2e 0a 52 65 | is an e|rror..Re|
|000018e0| 74 75 72 6e 73 20 6e 69 | 6c 2e 1f 0a 28 64 65 66 |turns ni|l...(def|
|000018f0| 61 6c 69 61 73 20 27 73 | 75 6e 2d 6d 6f 75 73 65 |alias 's|un-mouse|
|00001900| 2d 68 61 6e 64 6c 65 72 | 20 23 5b 28 26 6f 70 74 |-handler| #[(&opt|
|00001910| 69 6f 6e 61 6c 20 68 69 | 74 29 20 22 08 ac 83 c1 |ional hi|t) "....|
|00001920| 20 10 c2 08 41 40 c3 08 | 38 5c 22 89 1c 40 0c 41 | ...A@..|8\"..@.A|
|00001930| 40 c3 0c 38 c5 08 0c 5c | 22 1e 06 1e 07 1e 08 1e |@..8...\|".......|
|00001940| 09 72 ca 0e 09 21 71 88 | cb 0e 06 21 29 89 1e 0c |.r...!q.|...!)...|
|00001950| ac 96 cd 0e 0e 08 40 5c | 22 cf 55 ab b8 d0 d1 d2 |......@\|".U.....|
|00001960| d3 0e 06 21 21 5c 22 88 | aa ac 0e 0c 39 ab 90 0e |...!!\".|....9...|
|00001970| 0c 16 14 0e 0c 0e 09 0e | 08 0e 07 23 88 aa 97 0e |........|...#....|
|00001980| 0c 3c ab 8c 0e 0c 40 16 | 14 d5 0e 0c 21 88 aa 86 |.<....@.|....!...|
|00001990| d0 d6 0e 0c 5c 22 88 2e | 06 0e 14 d7 61 ab 84 0e |....\"..|....a...|
|000019a0| 18 16 14 d9 87 22 20 5b | 68 69 74 20 73 6d 3a 3a |....." [|hit sm::|
|000019b0| 63 6f 6d 62 69 6e 65 64 | 2d 68 69 74 73 20 73 6d |combined|-hits sm|
|000019c0| 3a 3a 77 69 6e 64 6f 77 | 2d 78 79 20 32 20 6c 6f |::window|-xy 2 lo|
|000019d0| 63 20 6d 6f 75 73 65 2d | 65 76 65 6e 74 2d 63 6f |c mouse-|event-co|
|000019e0| 64 65 20 6d 6f 75 73 65 | 2d 63 6f 64 65 20 2a 6d |de mouse|-code *m|
|000019f0| 6f 75 73 65 2d 79 2a 20 | 2a 6d 6f 75 73 65 2d 78 |ouse-y* |*mouse-x|
|00001a00| 2a 20 2a 6d 6f 75 73 65 | 2d 77 69 6e 64 6f 77 2a |* *mouse|-window*|
|00001a10| 20 77 69 6e 64 6f 77 2d | 62 75 66 66 65 72 20 6d | window-|buffer m|
|00001a20| 6f 75 73 65 2d 6c 6f 6f | 6b 75 70 20 66 6f 72 6d |ouse-loo|kup form|
|00001a30| 20 6c 6f 67 61 6e 64 20 | 73 6d 3a 3a 55 70 42 69 | logand |sm::UpBi|
|00001a40| 74 73 20 30 20 65 72 72 | 6f 72 20 22 55 6e 64 65 |ts 0 err|or "Unde|
|00001a50| 66 69 6e 65 64 20 6d 6f | 75 73 65 20 65 76 65 6e |fined mo|use even|
|00001a60| 74 3a 20 25 73 22 20 70 | 72 69 6e 31 2d 74 6f 2d |t: %s" p|rin1-to-|
|00001a70| 73 74 72 69 6e 67 20 6d | 6f 75 73 65 2d 63 6f 64 |string m|ouse-cod|
|00001a80| 65 2d 74 6f 2d 6d 6f 75 | 73 65 2d 6c 69 73 74 20 |e-to-mou|se-list |
|00001a90| 74 68 69 73 2d 63 6f 6d | 6d 61 6e 64 20 65 76 61 |this-com|mand eva|
|00001aa0| 6c 20 22 4d 6f 75 73 65 | 20 61 63 74 69 6f 6e 20 |l "Mouse| action |
|00001ab0| 6d 75 73 74 20 62 65 20 | 73 79 6d 62 6f 6c 20 6f |must be |symbol o|
|00001ac0| 72 20 6c 69 73 74 2c 20 | 62 75 74 20 77 61 73 3a |r list, |but was:|
|00001ad0| 20 25 73 22 20 73 75 6e | 2d 6d 6f 75 73 65 2d 68 | %s" sun|-mouse-h|
|00001ae0| 61 6e 64 6c 65 72 20 6c | 61 73 74 2d 63 6f 6d 6d |andler l|ast-comm|
|00001af0| 61 6e 64 20 6e 69 6c 5d | 20 37 20 28 23 24 20 2e |and nil]| 7 (#$ .|
|00001b00| 20 35 38 39 38 29 20 6e | 69 6c 5d 29 0a 23 40 36 | 5898) n|il]).#@6|
|00001b10| 33 20 52 65 61 64 20 61 | 6e 64 20 72 65 74 75 72 |3 Read a|nd retur|
|00001b20| 6e 20 6e 65 78 74 20 6d | 6f 75 73 65 2d 68 69 74 |n next m|ouse-hit|
|00001b30| 2c 20 69 6e 63 6c 75 64 | 65 20 70 6f 73 73 69 62 |, includ|e possib|
|00001b40| 6c 65 20 64 6f 75 62 6c | 65 20 63 6c 69 63 6b 1f |le doubl|e click.|
|00001b50| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6d 3a 3a |.(defali|as 'sm::|
|00001b60| 63 6f 6d 62 69 6e 65 64 | 2d 68 69 74 73 20 23 5b |combined|-hits #[|
|00001b70| 6e 69 6c 20 22 c0 20 19 | c2 0b 09 40 5c 22 c4 55 |nil ". .|...@\".U|
|00001b80| ab a9 c5 0e 06 21 89 1e | 07 ab 9f 09 c8 09 40 0e |.....!..|......@.|
|00001b90| 07 40 c2 0e 09 09 40 5c | 22 c2 0e 09 0e 07 40 5c |.@....@\|".....@\|
|00001ba0| 22 55 ab 84 0e 5c 6e aa | 81 c4 23 a0 88 29 09 29 |"U...\n.|..#..).)|
|00001bb0| 87 22 20 5b 6d 6f 75 73 | 65 2d 68 69 74 2d 72 65 |." [mous|e-hit-re|
|00001bc0| 61 64 20 68 69 74 31 20 | 6c 6f 67 61 6e 64 20 73 |ad hit1 |logand s|
|00001bd0| 6d 3a 3a 55 70 42 69 74 | 73 20 30 20 6d 6f 75 73 |m::UpBit|s 0 mous|
|00001be0| 65 2d 73 65 63 6f 6e 64 | 2d 68 69 74 20 65 78 74 |e-second|-hit ext|
|00001bf0| 72 61 2d 63 6c 69 63 6b | 2d 77 61 69 74 20 68 69 |ra-click|-wait hi|
|00001c00| 74 32 20 6c 6f 67 69 6f | 72 20 73 6d 3a 3a 42 75 |t2 logio|r sm::Bu|
|00001c10| 74 74 6f 6e 42 69 74 73 | 20 73 6d 3a 3a 44 6f 75 |ttonBits| sm::Dou|
|00001c20| 62 6c 65 42 69 74 73 5d | 20 39 20 28 23 24 20 2e |bleBits]| 9 (#$ .|
|00001c30| 20 36 39 33 30 29 5d 29 | 0a 23 40 31 31 34 20 52 | 6930)])|.#@114 R|
|00001c40| 65 61 64 20 6d 6f 75 73 | 65 2d 68 69 74 20 6c 69 |ead mous|e-hit li|
|00001c50| 73 74 20 66 72 6f 6d 20 | 6b 65 79 62 6f 61 72 64 |st from |keyboard|
|00001c60| 2e 20 20 4c 69 6b 65 20 | 28 72 65 61 64 20 27 72 |.  Like |(read 'r|
|00001c70| 65 61 64 2d 63 68 61 72 | 29 2c 0a 62 75 74 20 74 |ead-char|),.but t|
|00001c80| 68 61 74 20 75 73 65 73 | 20 6d 69 6e 69 62 75 66 |hat uses| minibuf|
|00001c90| 66 65 72 2c 20 61 6e 64 | 20 6d 75 63 6b 73 20 75 |fer, and| mucks u|
|00001ca0| 70 20 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 2e 1f |p last-c|ommand..|
|00001cb0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|00001cc0| 65 2d 68 69 74 2d 72 65 | 61 64 20 23 5b 6e 69 6c |e-hit-re|ad #[nil|
|00001cd0| 20 22 c0 89 19 1a c3 20 | 89 11 89 5c 6e 42 12 c4 | "..... |...\nB..|
|00001ce0| 6b ab 74 c5 c6 c7 5c 6e | 9f c8 23 21 2a 87 22 20 |k.t...\n|..#!*." |
|00001cf0| 5b 6e 69 6c 20 63 68 61 | 72 20 63 68 61 72 2d 6c |[nil cha|r char-l|
|00001d00| 69 73 74 20 72 65 61 64 | 2d 63 68 61 72 20 31 33 |ist read|-char 13|
|00001d10| 20 72 65 61 64 20 6d 61 | 70 63 6f 6e 63 61 74 20 | read ma|pconcat |
|00001d20| 63 68 61 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 22 |char-to-|string "|
|00001d30| 22 5d 20 35 20 28 23 24 | 20 2e 20 37 32 33 31 29 |"] 5 (#$| . 7231)|
|00001d40| 5d 29 0a 23 40 37 31 20 | 46 69 72 73 74 20 63 68 |]).#@71 |First ch|
|00001d50| 61 72 20 6f 66 20 6d 6f | 75 73 65 2d 70 72 65 66 |ar of mo|use-pref|
|00001d60| 69 78 2e 20 20 55 73 65 | 64 20 74 6f 20 64 65 74 |ix.  Use|d to det|
|00001d70| 65 63 74 20 64 6f 75 62 | 6c 65 20 63 6c 69 63 6b |ect doub|le click|
|00001d80| 73 20 61 6e 64 20 63 68 | 6f 72 64 73 2e 1f 0a 28 |s and ch|ords...(|
|00001d90| 64 65 66 76 61 72 20 6d | 6f 75 73 65 2d 70 72 65 |defvar m|ouse-pre|
|00001da0| 66 69 78 31 20 32 34 20 | 28 23 24 20 2e 20 37 34 |fix1 24 |(#$ . 74|
|00001db0| 39 36 29 29 0a 23 40 37 | 32 20 53 65 63 6f 6e 64 |96)).#@7|2 Second|
|00001dc0| 20 63 68 61 72 20 6f 66 | 20 6d 6f 75 73 65 2d 70 | char of| mouse-p|
|00001dd0| 72 65 66 69 78 2e 20 20 | 55 73 65 64 20 74 6f 20 |refix.  |Used to |
|00001de0| 64 65 74 65 63 74 20 64 | 6f 75 62 6c 65 20 63 6c |detect d|ouble cl|
|00001df0| 69 63 6b 73 20 61 6e 64 | 20 63 68 6f 72 64 73 2e |icks and| chords.|
|00001e00| 1f 0a 28 64 65 66 76 61 | 72 20 6d 6f 75 73 65 2d |..(defva|r mouse-|
|00001e10| 70 72 65 66 69 78 32 20 | 30 20 28 23 24 20 2e 20 |prefix2 |0 (#$ . |
|00001e20| 37 36 31 30 29 29 0a 23 | 40 36 38 20 52 65 74 75 |7610)).#|@68 Retu|
|00001e30| 72 6e 73 20 74 68 65 20 | 6e 65 78 74 20 6d 6f 75 |rns the |next mou|
|00001e40| 73 65 20 68 69 74 20 6f | 63 63 75 72 72 69 6e 67 |se hit o|ccurring|
|00001e50| 20 77 69 74 68 69 6e 20 | 48 49 54 2d 57 41 49 54 | within |HIT-WAIT|
|00001e60| 20 6d 69 6c 6c 69 73 65 | 63 6f 6e 64 73 2e 1f 0a | millise|conds...|
|00001e70| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 6f 75 73 65 |(defalia|s 'mouse|
|00001e80| 2d 73 65 63 6f 6e 64 2d | 68 69 74 20 23 5b 28 68 |-second-|hit #[(h|
|00001e90| 69 74 2d 77 61 69 74 29 | 20 22 c0 09 21 3f ad c6 |it-wait)| "..!?..|
|00001ea0| c2 20 89 1b 0c 6b ab 85 | c0 c5 21 ab 87 0b 43 16 |. ...k..|..!...C.|
|00001eb0| 06 c7 aa b1 c2 20 89 1e | 08 0e 09 6b ac 8a 0b 43 |..... ..|...k...C|
|00001ec0| 16 06 ca 20 88 c7 aa 9c | cb 20 1e 0c cd 0e 0e 0e |... ....|. ......|
|00001ed0| 0c 40 5c 22 cf 55 ac 8a | d0 09 c5 0e 0c 38 5a 21 |.@\".U..|.....8Z!|
|00001ee0| aa 82 0e 0c 29 29 29 87 | 22 20 5b 73 69 74 2d 66 |....))).|" [sit-f|
|00001ef0| 6f 72 2d 6d 69 6c 6c 69 | 73 65 63 73 20 68 69 74 |or-milli|secs hit|
|00001f00| 2d 77 61 69 74 20 72 65 | 61 64 2d 63 68 61 72 20 |-wait re|ad-char |
|00001f10| 70 63 31 20 6d 6f 75 73 | 65 2d 70 72 65 66 69 78 |pc1 mous|e-prefix|
|00001f20| 31 20 33 20 75 6e 72 65 | 61 64 2d 63 6f 6d 6d 61 |1 3 unre|ad-comma|
|00001f30| 6e 64 2d 65 76 65 6e 74 | 73 20 6e 69 6c 20 70 63 |nd-event|s nil pc|
|00001f40| 32 20 6d 6f 75 73 65 2d | 70 72 65 66 69 78 32 20 |2 mouse-|prefix2 |
|00001f50| 64 69 6e 67 20 6d 6f 75 | 73 65 2d 68 69 74 2d 72 |ding mou|se-hit-r|
|00001f60| 65 61 64 20 6e 65 77 2d | 68 69 74 20 6c 6f 67 61 |ead new-|hit loga|
|00001f70| 6e 64 20 73 6d 3a 3a 55 | 70 42 69 74 73 20 30 20 |nd sm::U|pBits 0 |
|00001f80| 6d 6f 75 73 65 2d 73 65 | 63 6f 6e 64 2d 68 69 74 |mouse-se|cond-hit|
|00001f90| 5d 20 35 20 28 23 24 20 | 2e 20 37 37 32 34 29 5d |] 5 (#$ |. 7724)]|
|00001fa0| 29 0a 23 40 31 31 36 20 | 46 69 6e 64 20 77 69 6e |).#@116 |Find win|
|00001fb0| 64 6f 77 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 73 |dow cont|aining s|
|00001fc0| 63 72 65 65 6e 20 63 6f | 6f 72 64 69 6e 61 74 65 |creen co|ordinate|
|00001fd0| 73 20 58 20 61 6e 64 20 | 59 2e 0a 52 65 74 75 72 |s X and |Y..Retur|
|00001fe0| 6e 73 20 6c 69 73 74 20 | 28 77 69 6e 64 6f 77 20 |ns list |(window |
|00001ff0| 78 20 79 29 20 77 68 65 | 72 65 20 78 20 61 6e 64 |x y) whe|re x and|
|00002000| 20 79 20 61 72 65 20 72 | 65 6c 61 74 69 76 65 20 | y are r|elative |
|00002010| 74 6f 20 77 69 6e 64 6f | 77 2e 1f 0a 28 64 65 66 |to windo|w...(def|
|00002020| 61 6c 69 61 73 20 27 73 | 6d 3a 3a 77 69 6e 64 6f |alias 's|m::windo|
|00002030| 77 2d 78 79 20 23 5b 28 | 78 20 79 29 20 22 c0 c1 |w-xy #[(|x y) "..|
|00002040| 8d ae 84 c2 0b 0c 45 87 | 22 20 5b 66 6f 75 6e 64 |......E.|" [found|
|00002050| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 20 19 | (byte-c|ode ". .|
|00002060| c2 8e c3 c0 20 21 89 1c | 40 0c 41 40 c5 0c 38 c6 |.... !..|@.A@..8.|
|00002070| 0c 38 1e 07 1e 08 1e 09 | 1e 5c 6e 0e 08 cb 20 55 |.8......|.\n... U|
|00002080| ab 85 0e 08 54 16 08 0e | 07 cc 20 55 ab 85 0e 07 |....T...|.. U....|
|00002090| 54 16 07 0e 0d 0e 5c 6e | 59 ab a6 0e 0d 0e 08 57 |T.....\n|Y......W|
|000020a0| ab 9f 0e 0e 0e 09 59 ab | 98 0e 0e 0e 07 57 ab 91 |......Y.|.....W..|
|000020b0| cf d0 c0 20 0e 0d 0e 5c | 6e 5a 0e 0e 0e 09 5a 45 |... ...\|nZ....ZE|
|000020c0| 5c 22 88 2d 09 d1 d2 d3 | d4 5c 22 21 61 3f ad 82 |\".-....|.\"!a?..|
|000020d0| aa 15 2a 87 22 20 5b 73 | 65 6c 65 63 74 65 64 2d |..*." [s|elected-|
|000020e0| 77 69 6e 64 6f 77 20 4f | 72 69 67 69 6e 61 6c 6c |window O|riginall|
|000020f0| 79 53 65 6c 65 63 74 65 | 64 57 69 6e 64 6f 77 20 |ySelecte|dWindow |
|00002100| 28 28 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 |((select|-window |
|00002110| 4f 72 69 67 69 6e 61 6c | 6c 79 53 65 6c 65 63 74 |Original|lySelect|
|00002120| 65 64 57 69 6e 64 6f 77 | 29 29 20 77 69 6e 64 6f |edWindow|)) windo|
|00002130| 77 2d 65 64 67 65 73 20 | 77 65 20 32 20 33 20 62 |w-edges |we 2 3 b|
|00002140| 65 20 72 65 20 74 65 20 | 6c 65 20 66 72 61 6d 65 |e re te |le frame|
|00002150| 2d 77 69 64 74 68 20 66 | 72 61 6d 65 2d 68 65 69 |-width f|rame-hei|
|00002160| 67 68 74 20 78 20 79 20 | 74 68 72 6f 77 20 66 6f |ght x y |throw fo|
|00002170| 75 6e 64 20 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |und sele|ct-windo|
|00002180| 77 20 6e 65 78 74 2d 77 | 69 6e 64 6f 77 20 6e 69 |w next-w|indow ni|
|00002190| 6c 20 74 5d 20 37 29 20 | 6e 69 6c 20 78 20 79 5d |l t] 7) |nil x y]|
|000021a0| 20 33 20 28 23 24 20 2e | 20 38 31 30 34 29 5d 29 | 3 (#$ .| 8104)])|
|000021b0| 0a 23 40 38 35 20 50 61 | 72 73 65 20 4c 4f 43 20 |.#@85 Pa|rse LOC |
|000021c0| 69 6e 74 6f 20 61 20 72 | 65 67 69 6f 6e 20 73 79 |into a r|egion sy|
|000021d0| 6d 62 6f 6c 2e 0a 52 65 | 74 75 72 6e 73 20 6f 6e |mbol..Re|turns on|
|000021e0| 65 20 6f 66 20 28 74 65 | 78 74 20 73 63 72 6f 6c |e of (te|xt scrol|
|000021f0| 6c 62 61 72 20 6d 6f 64 | 65 6c 69 6e 65 20 6d 69 |lbar mod|eline mi|
|00002200| 6e 69 62 75 66 66 65 72 | 29 1f 0a 28 64 65 66 61 |nibuffer|)..(defa|
|00002210| 6c 69 61 73 20 27 73 6d | 3a 3a 77 69 6e 64 6f 77 |lias 'sm|::window|
|00002220| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 6c 6f 63 29 20 |-region |#[(loc) |
|00002230| 22 08 40 08 41 40 c1 08 | 38 1a 1b 1c c5 0c 21 53 |".@.A@..|8.....!S|
|00002240| c6 0c 21 53 1e 07 1e 08 | c9 0c 21 ab 83 ca aa ae |..!S....|..!.....|
|00002250| 5c 6e 0e 07 59 ab 83 cb | aa a5 0b 0e 08 59 ab 83 |\n..Y...|.....Y..|
|00002260| cc aa 9c 0e 0d ab 97 0b | 0e 08 0e 0d 5a 59 ab 8e |........|....ZY..|
|00002270| 0b ce 0c 0b 5c 6e 23 c1 | 5c 5c 59 ab 83 cc aa 81 |....\n#.|\\Y.....|
|00002280| cf 2d 87 22 20 5b 6c 6f | 63 20 32 20 79 20 78 20 |.-." [lo|c 2 y x |
|00002290| 77 20 77 69 6e 64 6f 77 | 2d 77 69 64 74 68 20 77 |w window|-width w|
|000022a0| 69 6e 64 6f 77 2d 68 65 | 69 67 68 74 20 62 6f 74 |indow-he|ight bot|
|000022b0| 74 6f 6d 20 72 69 67 68 | 74 20 6d 69 6e 69 62 75 |tom righ|t minibu|
|000022c0| 66 66 65 72 2d 77 69 6e | 64 6f 77 2d 70 20 6d 69 |ffer-win|dow-p mi|
|000022d0| 6e 69 62 75 66 66 65 72 | 20 6d 6f 64 65 6c 69 6e |nibuffer| modelin|
|000022e0| 65 20 73 63 72 6f 6c 6c | 62 61 72 20 73 63 72 6f |e scroll|bar scro|
|000022f0| 6c 6c 62 61 72 2d 77 69 | 64 74 68 20 77 69 6e 64 |llbar-wi|dth wind|
|00002300| 6f 77 2d 6c 69 6e 65 2d | 65 6e 64 20 74 65 78 74 |ow-line-|end text|
|00002310| 5d 20 35 20 28 23 24 20 | 2e 20 38 36 33 30 29 5d |] 5 (#$ |. 8630)]|
|00002320| 29 0a 23 40 35 38 20 52 | 65 74 75 72 6e 20 57 49 |).#@58 R|eturn WI|
|00002330| 4e 44 4f 57 20 63 6f 6c | 75 6d 6e 20 28 69 67 6e |NDOW col|umn (ign|
|00002340| 6f 72 65 20 58 29 20 63 | 6f 6e 74 61 69 6e 69 6e |ore X) c|ontainin|
|00002350| 67 20 65 6e 64 20 6f 66 | 20 6c 69 6e 65 20 59 1f |g end of| line Y.|
|00002360| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 77 69 6e 64 |.(defali|as 'wind|
|00002370| 6f 77 2d 6c 69 6e 65 2d | 65 6e 64 20 23 5b 28 77 |ow-line-|end #[(w|
|00002380| 20 78 20 79 29 20 22 c0 | 20 19 c2 8e c3 0c 21 88 | x y) ".| .....!.|
|00002390| 8a c5 c6 20 0e 07 5c 22 | 2b 87 22 20 5b 73 65 6c |... ..\"|+." [sel|
|000023a0| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 4f 72 69 |ected-wi|ndow Ori|
|000023b0| 67 69 6e 61 6c 6c 79 53 | 65 6c 65 63 74 65 64 57 |ginallyS|electedW|
|000023c0| 69 6e 64 6f 77 20 28 28 | 73 65 6c 65 63 74 2d 77 |indow ((|select-w|
|000023d0| 69 6e 64 6f 77 20 4f 72 | 69 67 69 6e 61 6c 6c 79 |indow Or|iginally|
|000023e0| 53 65 6c 65 63 74 65 64 | 57 69 6e 64 6f 77 29 29 |Selected|Window))|
|000023f0| 20 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 77 | select-|window w|
|00002400| 20 6d 6f 76 65 2d 74 6f | 2d 6c 6f 63 20 66 72 61 | move-to|-loc fra|
|00002410| 6d 65 2d 77 69 64 74 68 | 20 79 5d 20 33 20 28 23 |me-width| y] 3 (#|
|00002420| 24 20 2e 20 38 39 39 39 | 29 5d 29 0a 28 62 79 74 |$ . 8999|)]).(byt|
|00002430| 65 2d 63 6f 64 65 20 22 | c0 11 c1 5c 6e 42 12 c1 |e-code "|...\nB..|
|00002440| 87 22 20 5b 28 28 6c 65 | 66 74 20 2e 20 31 29 20 |." [((le|ft . 1) |
|00002450| 28 6d 69 64 64 6c 65 20 | 2e 20 32 29 20 28 72 69 |(middle |. 2) (ri|
|00002460| 67 68 74 20 2e 20 34 29 | 20 28 73 68 69 66 74 20 |ght . 4)| (shift |
|00002470| 2e 20 38 29 20 28 63 6f | 6e 74 72 6f 6c 20 2e 20 |. 8) (co|ntrol . |
|00002480| 31 36 29 20 28 6d 65 74 | 61 20 2e 20 33 32 29 20 |16) (met|a . 32) |
|00002490| 28 64 6f 75 62 6c 65 20 | 2e 20 36 34 29 20 28 75 |(double |. 64) (u|
|000024a0| 70 20 2e 20 31 32 38 29 | 20 28 74 65 78 74 20 2e |p . 128)| (text .|
|000024b0| 20 32 35 36 29 20 28 73 | 63 72 6f 6c 6c 62 61 72 | 256) (s|crollbar|
|000024c0| 20 2e 20 35 31 32 29 20 | 28 6d 6f 64 65 6c 69 6e | . 512) |(modelin|
|000024d0| 65 20 2e 20 31 30 32 34 | 29 20 28 6d 69 6e 69 62 |e . 1024|) (minib|
|000024e0| 75 66 66 65 72 20 2e 20 | 32 30 34 38 29 29 20 73 |uffer . |2048)) s|
|000024f0| 6d 3a 3a 6b 65 79 77 6f | 72 64 2d 61 6c 69 73 74 |m::keywo|rd-alist|
|00002500| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00002510| 73 74 5d 20 32 29 0a 23 | 40 34 33 20 4d 61 70 73 |st] 2).#|@43 Maps|
|00002520| 20 4d 4f 55 53 45 2d 48 | 49 54 20 61 6e 64 20 4c | MOUSE-H|IT and L|
|00002530| 4f 43 20 69 6e 74 6f 20 | 61 20 6d 6f 75 73 65 2d |OC into |a mouse-|
|00002540| 63 6f 64 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |code...(|defalias|
|00002550| 20 27 6d 6f 75 73 65 2d | 65 76 65 6e 74 2d 63 6f | 'mouse-|event-co|
|00002560| 64 65 20 23 5b 28 68 69 | 74 20 6c 6f 63 29 20 22 |de #[(hi|t loc) "|
|00002570| c0 09 40 c2 c3 0c 21 21 | 5c 22 87 22 20 5b 6c 6f |..@...!!|\"." [lo|
|00002580| 67 69 6f 72 20 68 69 74 | 20 6d 6f 75 73 65 2d 72 |gior hit| mouse-r|
|00002590| 65 67 69 6f 6e 2d 74 6f | 2d 63 6f 64 65 20 73 6d |egion-to|-code sm|
|000025a0| 3a 3a 77 69 6e 64 6f 77 | 2d 72 65 67 69 6f 6e 20 |::window|-region |
|000025b0| 6c 6f 63 5d 20 35 20 28 | 23 24 20 2e 20 39 35 30 |loc] 5 (|#$ . 950|
|000025c0| 30 29 5d 29 0a 23 40 35 | 30 20 52 65 74 75 72 6e |0)]).#@5|0 Return|
|000025d0| 73 20 70 61 72 74 69 61 | 6c 20 6d 6f 75 73 65 2d |s partia|l mouse-|
|000025e0| 63 6f 64 65 20 66 6f 72 | 20 73 70 65 63 69 66 69 |code for| specifi|
|000025f0| 65 64 20 52 45 47 49 4f | 4e 2e 1f 0a 28 64 65 66 |ed REGIO|N...(def|
|00002600| 61 6c 69 61 73 20 27 6d | 6f 75 73 65 2d 72 65 67 |alias 'm|ouse-reg|
|00002610| 69 6f 6e 2d 74 6f 2d 63 | 6f 64 65 20 23 5b 28 72 |ion-to-c|ode #[(r|
|00002620| 65 67 69 6f 6e 29 20 22 | 08 09 b7 41 87 22 20 5b |egion) "|...A." [|
|00002630| 72 65 67 69 6f 6e 20 73 | 6d 3a 3a 6b 65 79 77 6f |region s|m::keywo|
|00002640| 72 64 2d 61 6c 69 73 74 | 5d 20 32 20 28 23 24 20 |rd-alist|] 2 (#$ |
|00002650| 2e 20 39 36 37 34 29 5d | 29 0a 23 40 33 35 20 4d |. 9674)]|).#@35 M|
|00002660| 61 70 20 61 20 4d 4f 55 | 53 45 2d 4c 49 53 54 20 |ap a MOU|SE-LIST |
|00002670| 74 6f 20 61 20 6d 6f 75 | 73 65 2d 63 6f 64 65 2e |to a mou|se-code.|
|00002680| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 6f 75 |..(defal|ias 'mou|
|00002690| 73 65 2d 6c 69 73 74 2d | 74 6f 2d 6d 6f 75 73 65 |se-list-|to-mouse|
|000026a0| 2d 63 6f 64 65 20 23 5b | 28 6d 6f 75 73 65 2d 6c |-code #[|(mouse-l|
|000026b0| 69 73 74 29 20 22 c0 c1 | c2 c3 0c 5c 22 5c 22 87 |ist) "..|...\"\".|
|000026c0| 22 20 5b 61 70 70 6c 79 | 20 6c 6f 67 69 6f 72 20 |" [apply| logior |
|000026d0| 6d 61 70 63 61 72 20 23 | 5b 28 78 29 20 22 08 09 |mapcar #|[(x) "..|
|000026e0| b7 41 87 22 20 5b 78 20 | 73 6d 3a 3a 6b 65 79 77 |.A." [x |sm::keyw|
|000026f0| 6f 72 64 2d 61 6c 69 73 | 74 5d 20 32 5d 20 6d 6f |ord-alis|t] 2] mo|
|00002700| 75 73 65 2d 6c 69 73 74 | 5d 20 35 20 28 23 24 20 |use-list|] 5 (#$ |
|00002710| 2e 20 39 38 32 33 29 5d | 29 0a 23 40 33 35 20 4d |. 9823)]|).#@35 M|
|00002720| 61 70 20 61 20 4d 4f 55 | 53 45 2d 43 4f 44 45 20 |ap a MOU|SE-CODE |
|00002730| 74 6f 20 61 20 6d 6f 75 | 73 65 2d 6c 69 73 74 2e |to a mou|se-list.|
|00002740| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 6f 75 |..(defal|ias 'mou|
|00002750| 73 65 2d 63 6f 64 65 2d | 74 6f 2d 6d 6f 75 73 65 |se-code-|to-mouse|
|00002760| 2d 6c 69 73 74 20 23 5b | 28 6d 6f 75 73 65 2d 63 |-list #[|(mouse-c|
|00002770| 6f 64 65 29 20 22 c0 c1 | c2 c3 0c 5c 22 5c 22 87 |ode) "..|...\"\".|
|00002780| 22 20 5b 61 70 70 6c 79 | 20 6e 63 6f 6e 63 20 6d |" [apply| nconc m|
|00002790| 61 70 63 61 72 20 23 5b | 28 78 29 20 22 c0 09 5c |apcar #[|(x) "..\|
|000027a0| 6e 41 5c 22 ad 83 5c 6e | 40 43 87 22 20 5b 6c 6f |nA\"..\n|@C." [lo|
|000027b0| 67 74 65 73 74 20 6d 6f | 75 73 65 2d 63 6f 64 65 |gtest mo|use-code|
|000027c0| 20 78 5d 20 33 5d 20 73 | 6d 3a 3a 6b 65 79 77 6f | x] 3] s|m::keywo|
|000027d0| 72 64 2d 61 6c 69 73 74 | 5d 20 35 20 28 23 24 20 |rd-alist|] 5 (#$ |
|000027e0| 2e 20 31 30 30 31 35 29 | 5d 29 0a 28 64 65 66 61 |. 10015)|]).(defa|
|000027f0| 6c 69 61 73 20 27 6d 6f | 75 73 65 6d 61 70 2d 73 |lias 'mo|usemap-s|
|00002800| 65 74 20 23 5b 28 63 6f | 64 65 20 6d 6f 75 73 65 |et #[(co|de mouse|
|00002810| 6d 61 70 20 76 61 6c 75 | 65 29 20 22 08 41 19 5c |map valu|e) ".A.\|
|00002820| 6e 09 b7 89 1b ab 85 0b | 0c a1 aa 87 08 5c 6e 0c |n.......|.....\n.|
|00002830| 42 09 42 a1 2a 87 22 20 | 5b 6d 6f 75 73 65 6d 61 |B.B.*." |[mousema|
|00002840| 70 20 61 6c 69 73 74 20 | 63 6f 64 65 20 61 73 73 |p alist |code ass|
|00002850| 71 2d 72 65 73 75 6c 74 | 20 76 61 6c 75 65 5d 20 |q-result| value] |
|00002860| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |4]).(def|alias 'm|
|00002870| 6f 75 73 65 6d 61 70 2d | 67 65 74 20 23 5b 28 63 |ousemap-|get #[(c|
|00002880| 6f 64 65 20 6d 6f 75 73 | 65 6d 61 70 29 20 22 08 |ode mous|emap) ".|
|00002890| 09 41 b7 41 87 22 20 5b | 63 6f 64 65 20 6d 6f 75 |.A.A." [|code mou|
|000028a0| 73 65 6d 61 70 5d 20 32 | 5d 29 0a 23 40 36 39 20 |semap] 2|]).#@69 |
|000028b0| 4c 6f 6f 6b 20 75 70 20 | 4d 4f 55 53 45 2d 45 56 |Look up |MOUSE-EV|
|000028c0| 45 4e 54 20 61 6e 64 20 | 72 65 74 75 72 6e 20 74 |ENT and |return t|
|000028d0| 68 65 20 64 65 66 69 6e | 69 74 69 6f 6e 2e 20 6e |he defin|ition. n|
|000028e0| 69 6c 20 6d 65 61 6e 73 | 20 75 6e 64 65 66 69 6e |il means| undefin|
|000028f0| 65 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ed...(de|falias '|
|00002900| 6d 6f 75 73 65 2d 6c 6f | 6f 6b 75 70 20 23 5b 28 |mouse-lo|okup #[(|
|00002910| 6d 6f 75 73 65 2d 63 6f | 64 65 29 20 22 c0 09 5c |mouse-co|de) "..\|
|00002920| 6e 5c 22 ae 84 c0 09 0b | 5c 22 87 22 20 5b 6d 6f |n\".....|\"." [mo|
|00002930| 75 73 65 6d 61 70 2d 67 | 65 74 20 6d 6f 75 73 65 |usemap-g|et mouse|
|00002940| 2d 63 6f 64 65 20 63 75 | 72 72 65 6e 74 2d 6c 6f |-code cu|rrent-lo|
|00002950| 63 61 6c 2d 6d 6f 75 73 | 65 6d 61 70 20 63 75 72 |cal-mous|emap cur|
|00002960| 72 65 6e 74 2d 67 6c 6f | 62 61 6c 2d 6d 6f 75 73 |rent-glo|bal-mous|
|00002970| 65 6d 61 70 5d 20 33 20 | 28 23 24 20 2e 20 31 30 |emap] 3 |(#$ . 10|
|00002980| 34 31 36 29 5d 29 0a 23 | 40 31 34 31 20 41 72 67 |416)]).#|@141 Arg|
|00002990| 73 20 4d 41 53 4b 20 28 | 61 20 62 69 74 20 6d 61 |s MASK (|a bit ma|
|000029a0| 73 6b 29 20 61 6e 64 20 | 4c 49 53 54 20 28 61 20 |sk) and |LIST (a |
|000029b0| 6c 69 73 74 20 6f 66 20 | 28 63 6f 64 65 20 2e 20 |list of |(code . |
|000029c0| 66 6f 72 6d 29 20 70 61 | 69 72 73 29 2e 0a 52 65 |form) pa|irs)..Re|
|000029d0| 74 75 72 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |turns a |list of |
|000029e0| 65 6c 65 6d 65 6e 74 73 | 20 6f 66 20 4c 49 53 54 |elements| of LIST|
|000029f0| 20 77 68 6f 73 65 20 63 | 6f 64 65 20 6f 72 27 65 | whose c|ode or'e|
|00002a00| 64 20 77 69 74 68 20 4d | 41 53 4b 20 69 73 20 6e |d with M|ASK is n|
|00002a10| 6f 6e 2d 7a 65 72 6f 2e | 1f 0a 28 64 65 66 61 6c |on-zero.|..(defal|
|00002a20| 69 61 73 20 27 6d 6f 75 | 73 65 2d 6d 61 73 6b 2d |ias 'mou|se-mask-|
|00002a30| 6c 6f 6f 6b 75 70 20 23 | 5b 28 6d 61 73 6b 20 6c |lookup #|[(mask l|
|00002a40| 69 73 74 29 20 22 c0 19 | 5c 6e ab 93 c3 0c 5c 6e |ist) "..|\n....\n|
|00002a50| 40 40 5c 22 ab 85 5c 6e | 40 09 42 11 5c 6e 41 89 |@@\"..\n|@.B.\nA.|
|00002a60| 12 ac 6d 09 29 87 22 20 | 5b 6e 69 6c 20 72 65 73 |..m.)." |[nil res|
|00002a70| 75 6c 74 20 6c 69 73 74 | 20 6c 6f 67 74 65 73 74 |ult list| logtest|
|00002a80| 20 6d 61 73 6b 5d 20 34 | 20 28 23 24 20 2e 20 31 | mask] 4| (#$ . 1|
|00002a90| 30 36 33 37 29 5d 29 0a | 23 40 31 32 36 20 52 65 |0637)]).|#@126 Re|
|00002aa0| 74 75 72 6e 20 74 68 65 | 20 75 6e 69 6f 6e 20 6f |turn the| union o|
|00002ab0| 66 20 6c 69 73 74 20 6f | 66 20 6d 6f 75 73 65 20 |f list o|f mouse |
|00002ac0| 28 63 6f 64 65 20 2e 20 | 66 6f 72 6d 29 20 70 61 |(code . |form) pa|
|00002ad0| 69 72 73 20 4c 20 61 6e | 64 20 4c 2d 55 4e 49 51 |irs L an|d L-UNIQ|
|00002ae0| 55 45 2c 0a 77 68 65 72 | 65 20 4c 2d 55 4e 49 51 |UE,.wher|e L-UNIQ|
|00002af0| 55 45 20 69 73 20 63 6f | 6e 73 69 64 65 72 65 64 |UE is co|nsidered|
|00002b00| 20 74 6f 20 62 65 20 75 | 6e 69 6f 6e 27 69 7a 65 | to be u|nion'ize|
|00002b10| 64 20 61 6c 72 65 61 64 | 79 2e 1f 0a 28 64 65 66 |d alread|y...(def|
|00002b20| 61 6c 69 61 73 20 27 6d | 6f 75 73 65 2d 75 6e 69 |alias 'm|ouse-uni|
|00002b30| 6f 6e 20 23 5b 28 6c 20 | 6c 2d 75 6e 69 71 75 65 |on #[(l |l-unique|
|00002b40| 29 20 22 08 19 5c 6e ab | 94 5c 6e 40 89 1b 40 09 |) "..\n.|.\n@..@.|
|00002b50| b7 ac 84 0b 09 42 11 29 | 5c 6e 41 89 12 ac 6c 09 |.....B.)|\nA...l.|
|00002b60| 29 87 22 20 5b 6c 2d 75 | 6e 69 71 75 65 20 72 65 |)." [l-u|nique re|
|00002b70| 73 75 6c 74 20 6c 20 63 | 6f 64 65 2d 66 6f 72 6d |sult l c|ode-form|
|00002b80| 2d 70 61 69 72 5d 20 33 | 20 28 23 24 20 2e 20 31 |-pair] 3| (#$ . 1|
|00002b90| 30 39 31 30 29 5d 29 0a | 23 40 31 32 39 20 52 65 |0910)]).|#@129 Re|
|00002ba0| 74 75 72 6e 20 74 68 65 | 20 75 6e 69 6f 6e 20 6f |turn the| union o|
|00002bb0| 66 20 6c 69 73 74 73 20 | 6f 66 20 6d 6f 75 73 65 |f lists |of mouse|
|00002bc0| 20 28 63 6f 64 65 20 2e | 20 66 6f 72 6d 29 20 70 | (code .| form) p|
|00002bd0| 61 69 72 73 20 4c 31 20 | 61 6e 64 20 4c 32 2c 0a |airs L1 |and L2,.|
|00002be0| 62 61 73 65 64 20 6f 6e | 20 74 68 65 20 63 6f 64 |based on| the cod|
|00002bf0| 65 27 73 2c 20 77 69 74 | 68 20 70 72 65 66 65 72 |e's, wit|h prefer|
|00002c00| 65 6e 63 65 20 67 6f 69 | 6e 67 20 74 6f 20 65 6c |ence goi|ng to el|
|00002c10| 65 6d 65 6e 74 73 20 69 | 6e 20 4c 31 2e 1f 0a 28 |ements i|n L1...(|
|00002c20| 64 65 66 61 6c 69 61 73 | 20 27 6d 6f 75 73 65 2d |defalias| 'mouse-|
|00002c30| 75 6e 69 6f 6e 2d 66 69 | 72 73 74 2d 70 72 65 66 |union-fi|rst-pref|
|00002c40| 65 72 72 65 64 20 23 5b | 28 6c 31 20 6c 32 29 20 |erred #[|(l1 l2) |
|00002c50| 22 c0 09 c0 5c 6e c3 5c | 22 5c 22 87 22 20 5b 6d |"...\n.\|"\"." [m|
|00002c60| 6f 75 73 65 2d 75 6e 69 | 6f 6e 20 6c 32 20 6c 31 |ouse-uni|on l2 l1|
|00002c70| 20 6e 69 6c 5d 20 35 20 | 28 23 24 20 2e 20 31 31 | nil] 5 |(#$ . 11|
|00002c80| 31 36 36 29 5d 29 0a 23 | 40 39 31 20 52 65 74 75 |166)]).#|@91 Retu|
|00002c90| 72 6e 20 61 20 6c 69 73 | 74 20 6f 66 20 28 63 6f |rn a lis|t of (co|
|00002ca0| 64 65 20 2e 20 66 75 6e | 63 74 69 6f 6e 29 20 70 |de . fun|ction) p|
|00002cb0| 61 69 72 73 2c 20 77 68 | 65 72 65 20 65 61 63 68 |airs, wh|ere each|
|00002cc0| 20 63 6f 64 65 20 69 73 | 0a 63 75 72 72 65 6e 74 | code is|.current|
|00002cd0| 6c 79 20 73 65 74 20 69 | 6e 20 74 68 65 20 52 45 |ly set i|n the RE|
|00002ce0| 47 49 4f 4e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |GION...(|defalias|
|00002cf0| 20 27 6d 6f 75 73 65 2d | 63 6f 64 65 2d 66 75 6e | 'mouse-|code-fun|
|00002d00| 63 74 69 6f 6e 2d 70 61 | 69 72 73 2d 6f 66 2d 72 |ction-pa|irs-of-r|
|00002d10| 65 67 69 6f 6e 20 23 5b | 28 72 65 67 69 6f 6e 29 |egion #[|(region)|
|00002d20| 20 22 c0 09 21 1a c3 c4 | 5c 6e 0d 41 5c 22 c4 5c | "..!...|\n.A\".\|
|00002d30| 6e 0e 06 41 5c 22 5c 22 | 29 87 22 20 5b 6d 6f 75 |n..A\"\"|)." [mou|
|00002d40| 73 65 2d 72 65 67 69 6f | 6e 2d 74 6f 2d 63 6f 64 |se-regio|n-to-cod|
|00002d50| 65 20 72 65 67 69 6f 6e | 20 6d 61 73 6b 20 6d 6f |e region| mask mo|
|00002d60| 75 73 65 2d 75 6e 69 6f | 6e 2d 66 69 72 73 74 2d |use-unio|n-first-|
|00002d70| 70 72 65 66 65 72 72 65 | 64 20 6d 6f 75 73 65 2d |preferre|d mouse-|
|00002d80| 6d 61 73 6b 2d 6c 6f 6f | 6b 75 70 20 63 75 72 72 |mask-loo|kup curr|
|00002d90| 65 6e 74 2d 6c 6f 63 61 | 6c 2d 6d 6f 75 73 65 6d |ent-loca|l-mousem|
|00002da0| 61 70 20 63 75 72 72 65 | 6e 74 2d 67 6c 6f 62 61 |ap curre|nt-globa|
|00002db0| 6c 2d 6d 6f 75 73 65 6d | 61 70 5d 20 35 20 28 23 |l-mousem|ap] 5 (#|
|00002dc0| 24 20 2e 20 31 31 34 30 | 34 29 5d 29 0a 23 40 31 |$ . 1140|4)]).#@1|
|00002dd0| 34 33 20 52 65 74 75 72 | 6e 73 20 66 69 72 73 74 |43 Retur|ns first|
|00002de0| 20 6c 69 6e 65 20 6f 66 | 20 64 6f 63 75 6d 65 6e | line of| documen|
|00002df0| 74 61 74 69 6f 6e 20 73 | 74 72 69 6e 67 20 66 6f |tation s|tring fo|
|00002e00| 72 20 46 55 4e 43 54 49 | 4f 4e 2e 0a 49 66 20 74 |r FUNCTI|ON..If t|
|00002e10| 68 65 72 65 20 69 73 20 | 6e 6f 20 64 6f 63 75 6d |here is |no docum|
|00002e20| 65 6e 74 61 74 69 6f 6e | 20 73 74 72 69 6e 67 2c |entation| string,|
|00002e30| 20 74 68 65 6e 20 74 68 | 65 20 73 74 72 69 6e 67 | then th|e string|
|00002e40| 0a 22 4e 6f 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |."No doc|umentati|
|00002e50| 6f 6e 22 20 69 73 20 72 | 65 74 75 72 6e 65 64 2e |on" is r|eturned.|
|00002e60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6f 6e 65 |..(defal|ias 'one|
|00002e70| 2d 6c 69 6e 65 2d 64 6f | 63 2d 73 74 72 69 6e 67 |-line-do|c-string|
|00002e80| 20 23 5b 28 66 75 6e 63 | 74 69 6f 6e 29 20 22 08 | #[(func|tion) ".|
|00002e90| 3a ab 86 08 40 89 10 aa | 77 c1 08 21 89 1a ac 83 |:...@...|w..!....|
|00002ea0| c3 aa 8a c4 c5 5c 6e 5c | 22 88 5c 6e c6 89 95 4f |.....\n\|".\n...O|
|00002eb0| 29 87 22 20 5b 66 75 6e | 63 74 69 6f 6e 20 64 6f |)." [fun|ction do|
|00002ec0| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 64 6f 63 20 |cumentat|ion doc |
|00002ed0| 22 4e 6f 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |"No docu|mentatio|
|00002ee0| 6e 2e 22 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |n." stri|ng-match|
|00002ef0| 20 22 5e 2e 2a 24 22 20 | 30 5d 20 34 20 28 23 24 | "^.*$" |0] 4 (#$|
|00002f00| 20 2e 20 31 31 37 33 31 | 29 5d 29 0a 28 64 65 66 | . 11731|)]).(def|
|00002f10| 61 6c 69 61 73 20 27 70 | 72 69 6e 74 2d 6d 6f 75 |alias 'p|rint-mou|
|00002f20| 73 65 2d 66 6f 72 6d 61 | 74 20 23 5b 28 62 69 6e |se-forma|t #[(bin|
|00002f30| 64 69 6e 67 29 20 22 c0 | 09 40 21 88 c0 c2 21 88 |ding) ".|.@!...!.|
|00002f40| c3 c4 09 41 5c 22 88 c5 | 20 88 c0 c6 21 88 c0 c7 |...A\"..| ...!...|
|00002f50| 09 40 21 21 88 c5 20 87 | 22 20 5b 70 72 69 6e 63 |.@!!.. .|" [princ|
|00002f60| 20 62 69 6e 64 69 6e 67 | 20 22 3a 20 22 20 6d 61 | binding| ": " ma|
|00002f70| 70 63 61 72 20 23 5b 28 | 6d 6f 75 73 65 2d 6c 69 |pcar #[(|mouse-li|
|00002f80| 73 74 29 20 22 c0 09 21 | 88 c0 c2 21 87 22 20 5b |st) "..!|...!." [|
|00002f90| 70 72 69 6e 63 20 6d 6f | 75 73 65 2d 6c 69 73 74 |princ mo|use-list|
|00002fa0| 20 22 20 22 5d 20 32 5d | 20 74 65 72 70 72 69 20 | " "] 2]| terpri |
|00002fb0| 22 20 20 22 20 6f 6e 65 | 2d 6c 69 6e 65 2d 64 6f |"  " one|-line-do|
|00002fc0| 63 2d 73 74 72 69 6e 67 | 5d 20 33 5d 29 0a 23 40 |c-string|] 3]).#@|
|00002fd0| 34 31 20 50 72 69 6e 74 | 73 20 6d 6f 75 73 65 2d |41 Print|s mouse-|
|00002fe0| 65 76 65 6e 74 20 62 69 | 6e 64 69 6e 67 73 20 66 |event bi|ndings f|
|00002ff0| 6f 72 20 52 45 47 49 4f | 4e 2e 1f 0a 28 64 65 66 |or REGIO|N...(def|
|00003000| 61 6c 69 61 73 20 27 70 | 72 69 6e 74 2d 6d 6f 75 |alias 'p|rint-mou|
|00003010| 73 65 2d 62 69 6e 64 69 | 6e 67 73 20 23 5b 28 72 |se-bindi|ngs #[(r|
|00003020| 65 67 69 6f 6e 29 20 22 | c0 c1 c2 0b 21 5c 22 87 |egion) "|....!\".|
|00003030| 22 20 5b 6d 61 70 63 61 | 72 20 70 72 69 6e 74 2d |" [mapca|r print-|
|00003040| 6d 6f 75 73 65 2d 66 6f | 72 6d 61 74 20 73 6d 3a |mouse-fo|rmat sm:|
|00003050| 3a 65 76 65 6e 74 2d 62 | 69 6e 64 69 6e 67 73 20 |:event-b|indings |
|00003060| 72 65 67 69 6f 6e 5d 20 | 34 20 28 23 24 20 2e 20 |region] |4 (#$ . |
|00003070| 31 32 32 34 33 29 5d 29 | 0a 23 40 31 33 34 20 52 |12243)])|.#@134 R|
|00003080| 65 74 75 72 6e 73 20 61 | 6e 20 61 6c 69 73 74 20 |eturns a|n alist |
|00003090| 6f 66 20 28 66 75 6e 63 | 74 69 6f 6e 20 2e 20 28 |of (func|tion . (|
|000030a0| 6d 6f 75 73 65 2d 6c 69 | 73 74 31 20 2e 2e 2e 20 |mouse-li|st1 ... |
|000030b0| 6d 6f 75 73 65 2d 6c 69 | 73 74 4e 29 29 20 66 6f |mouse-li|stN)) fo|
|000030c0| 72 20 52 45 47 49 4f 4e | 2c 0a 77 68 65 72 65 20 |r REGION|,.where |
|000030d0| 65 61 63 68 20 6d 6f 75 | 73 65 2d 6c 69 73 74 20 |each mou|se-list |
|000030e0| 69 73 20 62 6f 75 6e 64 | 20 74 6f 20 74 68 65 20 |is bound| to the |
|000030f0| 66 75 6e 63 74 69 6f 6e | 20 69 6e 20 52 45 47 49 |function| in REGI|
|00003100| 4f 4e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ON...(de|falias '|
|00003110| 73 6d 3a 3a 65 76 65 6e | 74 2d 62 69 6e 64 69 6e |sm::even|t-bindin|
|00003120| 67 73 20 23 5b 28 72 65 | 67 69 6f 6e 29 20 22 c0 |gs #[(re|gion) ".|
|00003130| 09 21 c2 1b 89 1c ab ad | 0c 40 1d c6 0d 41 0b 5c |.!......|.@...A.\|
|00003140| 22 89 1e 07 ab 8e 0e 07 | c8 0d 40 21 0e 07 41 42 |".......|..@!..AB|
|00003150| a1 88 aa 8b 0d 41 c8 0d | 40 21 43 42 0b 42 13 2a |.....A..|@!CB.B.*|
|00003160| 0c 41 89 14 ac 53 0b 2a | 87 22 20 5b 6d 6f 75 73 |.A...S.*|." [mous|
|00003170| 65 2d 63 6f 64 65 2d 66 | 75 6e 63 74 69 6f 6e 2d |e-code-f|unction-|
|00003180| 70 61 69 72 73 2d 6f 66 | 2d 72 65 67 69 6f 6e 20 |pairs-of|-region |
|00003190| 72 65 67 69 6f 6e 20 6e | 69 6c 20 72 65 73 75 6c |region n|il resul|
|000031a0| 74 20 6d 6f 75 73 65 2d | 62 69 6e 64 69 6e 67 73 |t mouse-|bindings|
|000031b0| 20 63 6f 64 65 2d 66 75 | 6e 63 74 69 6f 6e 2d 70 | code-fu|nction-p|
|000031c0| 61 69 72 20 61 73 73 6f | 63 20 63 75 72 72 65 6e |air asso|c curren|
|000031d0| 74 2d 65 6e 74 72 79 20 | 6d 6f 75 73 65 2d 63 6f |t-entry |mouse-co|
|000031e0| 64 65 2d 74 6f 2d 6d 6f | 75 73 65 2d 6c 69 73 74 |de-to-mo|use-list|
|000031f0| 5d 20 34 20 28 23 24 20 | 2e 20 31 32 34 31 35 29 |] 4 (#$ |. 12415)|
|00003200| 5d 29 0a 23 40 34 31 20 | 4c 69 73 74 73 20 61 6c |]).#@41 |Lists al|
|00003210| 6c 20 63 75 72 72 65 6e | 74 20 6d 6f 75 73 65 2d |l curren|t mouse-|
|00003220| 65 76 65 6e 74 20 62 69 | 6e 64 69 6e 67 73 2e 1f |event bi|ndings..|
|00003230| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 73 63 |.(defali|as 'desc|
|00003240| 72 69 62 65 2d 6d 6f 75 | 73 65 2d 62 69 6e 64 69 |ribe-mou|se-bindi|
|00003250| 6e 67 73 20 23 5b 6e 69 | 6c 20 22 c0 90 c1 c2 21 |ngs #[ni|l "....!|
|00003260| 88 c3 20 88 c1 c4 21 88 | c3 20 88 c5 c6 21 88 c3 |.. ...!.|. ...!..|
|00003270| 20 88 c1 c7 21 88 c3 20 | 88 c1 c8 21 88 c3 20 88 | ...!.. |...!.. .|
|00003280| c5 c9 21 88 c3 20 88 c1 | ca 21 88 c3 20 88 c1 cb |..!.. ..|.!.. ...|
|00003290| 21 88 c3 20 88 c5 cc 21 | 91 87 22 20 5b 22 2a 48 |!.. ...!|.." ["*H|
|000032a0| 65 6c 70 2a 22 20 70 72 | 69 6e 63 20 22 54 65 78 |elp*" pr|inc "Tex|
|000032b0| 74 20 52 65 67 69 6f 6e | 22 20 74 65 72 70 72 69 |t Region|" terpri|
|000032c0| 20 22 2d 2d 2d 2d 20 2d | 2d 2d 2d 2d 2d 22 20 70 | "---- -|-----" p|
|000032d0| 72 69 6e 74 2d 6d 6f 75 | 73 65 2d 62 69 6e 64 69 |rint-mou|se-bindi|
|000032e0| 6e 67 73 20 74 65 78 74 | 20 22 4d 6f 64 65 6c 69 |ngs text| "Modeli|
|000032f0| 6e 65 20 52 65 67 69 6f | 6e 22 20 22 2d 2d 2d 2d |ne Regio|n" "----|
|00003300| 2d 2d 2d 2d 20 2d 2d 2d | 2d 2d 2d 22 20 6d 6f 64 |---- ---|---" mod|
|00003310| 65 6c 69 6e 65 20 22 53 | 63 72 6f 6c 6c 62 61 72 |eline "S|crollbar|
|00003320| 20 52 65 67 69 6f 6e 22 | 20 22 2d 2d 2d 2d 2d 2d | Region"| "------|
|00003330| 2d 2d 2d 20 2d 2d 2d 2d | 2d 2d 22 20 73 63 72 6f |--- ----|--" scro|
|00003340| 6c 6c 62 61 72 5d 20 33 | 20 28 23 24 20 2e 20 31 |llbar] 3| (#$ . 1|
|00003350| 32 38 30 38 29 20 6e 69 | 6c 5d 29 0a 23 40 36 34 |2808) ni|l]).#@64|
|00003360| 20 50 72 69 6e 74 20 61 | 20 73 68 6f 72 74 20 64 | Print a| short d|
|00003370| 65 73 63 72 69 70 74 69 | 6f 6e 20 6f 66 20 74 68 |escripti|on of th|
|00003380| 65 20 66 75 6e 63 74 69 | 6f 6e 20 62 6f 75 6e 64 |e functi|on bound|
|00003390| 20 74 6f 20 4d 4f 55 53 | 45 2d 4c 49 53 54 2e 1f | to MOUS|E-LIST..|
|000033a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 73 63 |.(defali|as 'desc|
|000033b0| 72 69 62 65 2d 6d 6f 75 | 73 65 2d 62 72 69 65 66 |ribe-mou|se-brief|
|000033c0| 6c 79 20 23 5b 28 6d 6f | 75 73 65 2d 6c 69 73 74 |ly #[(mo|use-list|
|000033d0| 29 20 22 c0 c1 5c 6e 21 | 21 89 1b ab 87 c4 c5 5c |) "..\n!|!......\|
|000033e0| 6e 0b 23 aa 84 c4 c6 5c | 6e 5c 22 29 87 22 20 5b |n.#....\|n\")." [|
|000033f0| 6d 6f 75 73 65 2d 6c 6f | 6f 6b 75 70 20 6d 6f 75 |mouse-lo|okup mou|
|00003400| 73 65 2d 6c 69 73 74 2d | 74 6f 2d 6d 6f 75 73 65 |se-list-|to-mouse|
|00003410| 2d 63 6f 64 65 20 6d 6f | 75 73 65 2d 6c 69 73 74 |-code mo|use-list|
|00003420| 20 66 75 6e 63 74 69 6f | 6e 20 6d 65 73 73 61 67 | functio|n messag|
|00003430| 65 20 22 25 73 20 72 75 | 6e 73 20 74 68 65 20 63 |e "%s ru|ns the c|
|00003440| 6f 6d 6d 61 6e 64 20 25 | 73 22 20 22 25 73 20 69 |ommand %|s" "%s i|
|00003450| 73 20 75 6e 64 65 66 69 | 6e 65 64 22 5d 20 35 20 |s undefi|ned"] 5 |
|00003460| 28 23 24 20 2e 20 31 33 | 31 35 33 29 20 22 78 44 |(#$ . 13|153) "xD|
|00003470| 65 73 63 69 62 65 20 6d | 6f 75 73 65 20 6c 69 73 |escibe m|ouse lis|
|00003480| 74 20 62 72 69 65 66 6c | 79 3a 20 22 5d 29 0a 28 |t briefl|y: "]).(|
|00003490| 64 65 66 61 6c 69 61 73 | 20 27 6d 6f 75 73 65 2d |defalias| 'mouse-|
|000034a0| 68 65 6c 70 2d 6d 65 6e | 75 20 23 5b 28 66 75 6e |help-men|u #[(fun|
|000034b0| 63 74 69 6f 6e 2d 61 6e | 64 2d 62 69 6e 64 69 6e |ction-an|d-bindin|
|000034c0| 67 29 20 22 c0 09 40 21 | c2 c3 09 40 21 43 c0 09 |g) "..@!|...@!C..|
|000034d0| 41 21 43 44 21 42 87 22 | 20 5b 70 72 69 6e 31 2d |A!CD!B."| [prin1-|
|000034e0| 74 6f 2d 73 74 72 69 6e | 67 20 66 75 6e 63 74 69 |to-strin|g functi|
|000034f0| 6f 6e 2d 61 6e 64 2d 62 | 69 6e 64 69 6e 67 20 6d |on-and-b|inding m|
|00003500| 65 6e 75 2d 63 72 65 61 | 74 65 20 6f 6e 65 2d 6c |enu-crea|te one-l|
|00003510| 69 6e 65 2d 64 6f 63 2d | 73 74 72 69 6e 67 5d 20 |ine-doc-|string] |
|00003520| 35 5d 29 0a 23 40 36 31 | 20 44 69 73 70 6c 61 79 |5]).#@61| Display|
|00003530| 73 20 61 20 6d 65 6e 75 | 20 6f 66 20 6d 6f 75 73 |s a menu| of mous|
|00003540| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 63 61 6c 6c |e functi|ons call|
|00003550| 61 62 6c 65 20 69 6e 20 | 74 68 69 73 20 72 65 67 |able in |this reg|
|00003560| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00003570| 27 6d 6f 75 73 65 2d 68 | 65 6c 70 2d 72 65 67 69 |'mouse-h|elp-regi|
|00003580| 6f 6e 20 23 5b 28 77 20 | 78 20 79 20 26 6f 70 74 |on #[(w |x y &opt|
|00003590| 69 6f 6e 61 6c 20 72 65 | 67 69 6f 6e 29 20 22 08 |ional re|gion) ".|
|000035a0| ae 86 c1 5c 6e 0b 0c 45 | 21 18 c5 c6 c7 08 21 5c |...\n..E|!.....!\|
|000035b0| 22 1e 08 c9 ca 08 21 43 | 0e 08 42 21 1e 0b cc 5c |".....!C|..B!...\|
|000035c0| 6e cd 0c 0e 0b 24 88 2b | ce 87 22 20 5b 72 65 67 |n....$.+|.." [reg|
|000035d0| 69 6f 6e 20 73 6d 3a 3a | 77 69 6e 64 6f 77 2d 72 |ion sm::|window-r|
|000035e0| 65 67 69 6f 6e 20 77 20 | 78 20 79 20 6d 61 70 63 |egion w |x y mapc|
|000035f0| 61 72 20 6d 6f 75 73 65 | 2d 68 65 6c 70 2d 6d 65 |ar mouse|-help-me|
|00003600| 6e 75 20 73 6d 3a 3a 65 | 76 65 6e 74 2d 62 69 6e |nu sm::e|vent-bin|
|00003610| 64 69 6e 67 73 20 6d 6c | 69 73 74 20 6d 65 6e 75 |dings ml|ist menu|
|00003620| 2d 63 72 65 61 74 65 20 | 73 79 6d 62 6f 6c 2d 6e |-create |symbol-n|
|00003630| 61 6d 65 20 6d 65 6e 75 | 20 73 75 6e 2d 6d 65 6e |ame menu| sun-men|
|00003640| 75 2d 65 76 61 6c 75 61 | 74 65 20 30 20 6e 69 6c |u-evalua|te 0 nil|
|00003650| 5d 20 35 20 28 23 24 20 | 2e 20 31 33 36 30 39 29 |] 5 (#$ |. 13609)|
|00003660| 5d 29 0a 23 40 31 30 36 | 20 46 75 6e 63 74 69 6f |]).#@106| Functio|
|00003670| 6e 61 6c 20 66 6f 72 6d | 20 66 6f 72 20 64 65 66 |nal form| for def|
|00003680| 6d 65 6e 75 2c 20 67 69 | 76 65 6e 20 61 20 6c 69 |menu, gi|ven a li|
|00003690| 73 74 20 6f 66 20 49 54 | 45 4d 53 20 72 65 74 75 |st of IT|EMS retu|
|000036a0| 72 6e 73 20 61 20 6d 65 | 6e 75 2e 0a 45 61 63 68 |rns a me|nu..Each|
|000036b0| 20 49 54 45 4d 20 69 73 | 20 61 20 28 53 54 52 49 | ITEM is| a (STRI|
|000036c0| 4e 47 20 2e 20 56 41 4c | 55 45 29 20 70 61 69 72 |NG . VAL|UE) pair|
|000036d0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 65 |...(defa|lias 'me|
|000036e0| 6e 75 2d 63 72 65 61 74 | 65 20 23 5b 28 69 74 65 |nu-creat|e #[(ite|
|000036f0| 6d 73 29 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 61 |ms) "..\|n\"." [a|
|00003700| 70 70 6c 79 20 76 65 63 | 74 6f 72 20 69 74 65 6d |pply vec|tor item|
|00003710| 73 5d 20 33 20 28 23 24 | 20 2e 20 31 33 39 32 39 |s] 3 (#$| . 13929|
|00003720| 29 5d 29 0a 23 40 31 31 | 37 20 44 65 66 69 6e 65 |)]).#@11|7 Define|
|00003730| 73 20 4d 45 4e 55 20 74 | 6f 20 62 65 20 61 20 6d |s MENU t|o be a m|
|00003740| 65 6e 75 2c 20 74 68 65 | 20 49 54 45 4d 53 20 61 |enu, the| ITEMS a|
|00003750| 72 65 20 28 53 54 52 49 | 4e 47 20 2e 20 56 41 4c |re (STRI|NG . VAL|
|00003760| 55 45 29 20 70 61 69 72 | 73 2e 0a 53 65 65 20 73 |UE) pair|s..See s|
|00003770| 75 6e 2d 6d 65 6e 75 2d | 65 76 61 6c 75 61 74 65 |un-menu-|evaluate|
|00003780| 20 66 6f 72 20 69 6e 74 | 65 72 70 72 65 74 61 74 | for int|erpretat|
|00003790| 69 6f 6e 20 6f 66 20 49 | 54 45 4d 53 2e 1f 0a 28 |ion of I|TEMS...(|
|000037a0| 64 65 66 61 6c 69 61 73 | 20 27 64 65 66 6d 65 6e |defalias| 'defmen|
|000037b0| 75 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6d |u '(macr|o . #[(m|
|000037c0| 65 6e 75 20 26 72 65 73 | 74 20 69 74 65 6d 6c 69 |enu &res|t itemli|
|000037d0| 73 74 29 20 22 c0 09 c2 | 0b 21 45 87 22 20 5b 64 |st) "...|.!E." [d|
|000037e0| 65 66 63 6f 6e 73 74 20 | 6d 65 6e 75 20 6d 65 6e |efconst |menu men|
|000037f0| 75 2d 63 72 65 61 74 65 | 20 69 74 65 6d 6c 69 73 |u-create| itemlis|
|00003800| 74 5d 20 34 20 28 23 24 | 20 2e 20 31 34 31 32 32 |t] 4 (#$| . 14122|
|00003810| 29 5d 29 29 0a 23 40 36 | 32 39 20 44 69 73 70 6c |)])).#@6|29 Displ|
|00003820| 61 79 20 61 20 70 6f 70 | 2d 75 70 20 6d 65 6e 75 |ay a pop|-up menu|
|00003830| 20 69 6e 20 57 49 4e 44 | 4f 57 20 61 74 20 58 20 | in WIND|OW at X |
|00003840| 59 20 61 6e 64 20 65 76 | 61 6c 75 61 74 65 20 73 |Y and ev|aluate s|
|00003850| 65 6c 65 63 74 65 64 20 | 69 74 65 6d 0a 6f 66 20 |elected |item.of |
|00003860| 4d 45 4e 55 2e 20 20 4d | 45 4e 55 20 28 6f 72 20 |MENU.  M|ENU (or |
|00003870| 69 74 73 20 73 79 6d 62 | 6f 6c 2d 76 61 6c 75 65 |its symb|ol-value|
|00003880| 29 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 6d 65 |) should| be a me|
|00003890| 6e 75 20 64 65 66 69 6e | 65 64 20 62 79 20 64 65 |nu defin|ed by de|
|000038a0| 66 6d 65 6e 75 2e 0a 20 | 20 41 20 6d 65 6e 75 20 |fmenu.. | A menu |
|000038b0| 49 54 45 4d 20 69 73 20 | 61 20 28 53 54 52 49 4e |ITEM is |a (STRIN|
|000038c0| 47 20 2e 20 46 4f 52 4d | 29 20 70 61 69 72 3b 0a |G . FORM|) pair;.|
|000038d0| 74 68 65 20 46 4f 52 4d | 20 61 73 73 6f 63 69 61 |the FORM| associa|
|000038e0| 74 65 64 20 77 69 74 68 | 20 74 68 65 20 73 65 6c |ted with| the sel|
|000038f0| 65 63 74 65 64 20 53 54 | 52 49 4e 47 20 69 73 20 |ected ST|RING is |
|00003900| 65 76 61 6c 75 61 74 65 | 64 2c 0a 61 6e 64 20 74 |evaluate|d,.and t|
|00003910| 68 65 20 72 65 73 75 6c | 74 69 6e 67 20 76 61 6c |he resul|ting val|
|00003920| 75 65 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 20 |ue is re|turned. |
|00003930| 20 47 65 6e 65 72 61 6c | 6c 79 20 74 68 65 73 65 | General|ly these|
|00003940| 20 46 4f 52 4d 73 20 61 | 72 65 0a 65 76 61 6c 75 | FORMs a|re.evalu|
|00003950| 61 74 65 64 20 66 6f 72 | 20 74 68 65 69 72 20 73 |ated for| their s|
|00003960| 69 64 65 2d 65 66 66 65 | 63 74 73 20 72 61 74 68 |ide-effe|cts rath|
|00003970| 65 72 20 74 68 61 6e 20 | 74 68 65 69 72 20 76 61 |er than |their va|
|00003980| 6c 75 65 73 2e 0a 20 20 | 49 66 20 74 68 65 20 73 |lues..  |If the s|
|00003990| 65 6c 65 63 74 65 64 20 | 66 6f 72 6d 20 69 73 20 |elected |form is |
|000039a0| 61 20 6d 65 6e 75 20 6f | 72 20 61 20 73 79 6d 62 |a menu o|r a symb|
|000039b0| 6f 6c 20 77 68 6f 73 65 | 20 76 61 6c 75 65 20 69 |ol whose| value i|
|000039c0| 73 20 61 20 6d 65 6e 75 | 2c 20 0a 74 68 65 6e 20 |s a menu|, .then |
|000039d0| 69 74 20 69 73 20 64 69 | 73 70 6c 61 79 65 64 20 |it is di|splayed |
|000039e0| 61 6e 64 20 65 76 61 6c | 75 61 74 65 64 20 61 73 |and eval|uated as|
|000039f0| 20 61 20 70 75 6c 6c 72 | 69 67 68 74 20 6d 65 6e | a pullr|ight men|
|00003a00| 75 20 69 74 65 6d 2e 0a | 20 20 49 66 20 74 68 65 |u item..|  If the|
|00003a10| 20 46 4f 52 4d 20 6f 66 | 20 74 68 65 20 66 69 72 | FORM of| the fir|
|00003a20| 73 74 20 49 54 45 4d 20 | 69 73 20 6e 69 6c 2c 20 |st ITEM |is nil, |
|00003a30| 74 68 65 20 53 54 52 49 | 4e 47 20 6f 66 20 74 68 |the STRI|NG of th|
|00003a40| 65 20 69 74 65 6d 0a 69 | 73 20 75 73 65 64 20 61 |e item.i|s used a|
|00003a50| 73 20 61 20 6c 61 62 65 | 6c 20 66 6f 72 20 74 68 |s a labe|l for th|
|00003a60| 65 20 6d 65 6e 75 2c 20 | 69 2e 65 2e 20 69 74 27 |e menu, |i.e. it'|
|00003a70| 73 20 69 6e 76 65 72 74 | 65 64 20 61 6e 64 20 6e |s invert|ed and n|
|00003a80| 6f 74 20 73 65 6c 65 63 | 74 61 62 6c 65 2e 1f 0a |ot selec|table...|
|00003a90| 28 64 65 66 61 6c 69 61 | 73 20 27 73 75 6e 2d 6d |(defalia|s 'sun-m|
|00003aa0| 65 6e 75 2d 65 76 61 6c | 75 61 74 65 20 23 5b 28 |enu-eval|uate #[(|
|00003ab0| 2a 6d 65 6e 75 2d 77 69 | 6e 64 6f 77 2a 20 2a 6d |*menu-wi|ndow* *m|
|00003ac0| 65 6e 75 2d 78 2a 20 2a | 6d 65 6e 75 2d 79 2a 20 |enu-x* *|menu-y* |
|00003ad0| 6d 65 6e 75 29 20 22 08 | 39 ab 83 08 4a 10 c1 c2 |menu) ".|9...J...|
|00003ae0| 0b 0c 0d c6 08 25 21 87 | 22 20 5b 6d 65 6e 75 20 |.....%!.|" [menu |
|00003af0| 65 76 61 6c 20 73 75 6e | 2d 6d 65 6e 75 2d 69 6e |eval sun|-menu-in|
|00003b00| 74 65 72 6e 61 6c 20 2a | 6d 65 6e 75 2d 77 69 6e |ternal *|menu-win|
|00003b10| 64 6f 77 2a 20 2a 6d 65 | 6e 75 2d 78 2a 20 2a 6d |dow* *me|nu-x* *m|
|00003b20| 65 6e 75 2d 79 2a 20 34 | 5d 20 37 20 28 23 24 20 |enu-y* 4|] 7 (#$ |
|00003b30| 2e 20 31 34 33 36 33 29 | 5d 29 0a 23 40 32 36 36 |. 14363)|]).#@266|
|00003b40| 20 53 65 6e 64 73 20 74 | 68 65 20 74 74 79 2d 73 | Sends t|he tty-s|
|00003b50| 75 62 2d 77 69 6e 64 6f | 77 20 65 73 63 61 70 65 |ub-windo|w escape|
|00003b60| 20 73 65 71 75 65 6e 63 | 65 20 43 4f 44 45 20 74 | sequenc|e CODE t|
|00003b70| 6f 20 74 65 72 6d 69 6e | 61 6c 2c 0a 61 6e 64 20 |o termin|al,.and |
|00003b80| 72 65 74 75 72 6e 73 20 | 61 20 63 6f 6e 73 20 6f |returns |a cons o|
|00003b90| 66 20 74 68 65 20 74 77 | 6f 20 6e 75 6d 62 65 72 |f the tw|o number|
|00003ba0| 73 20 69 6e 20 72 65 74 | 75 72 6e 65 64 20 65 73 |s in ret|urned es|
|00003bb0| 63 61 70 65 20 73 65 71 | 75 65 6e 63 65 2e 0a 54 |cape seq|uence..T|
|00003bc0| 68 61 74 20 69 73 20 69 | 74 20 72 65 74 75 72 6e |hat is i|t return|
|00003bd0| 73 20 28 63 6f 6e 73 20 | 3c 63 61 72 3e 20 3c 63 |s (cons |<car> <c|
|00003be0| 64 72 3e 29 20 66 72 6f | 6d 20 22 5c 45 5b 6e 3b |dr>) fro|m "\E[n;|
|00003bf0| 3c 63 61 72 3e 3b 3c 63 | 64 72 3e 74 22 2e 20 0a |<car>;<c|dr>t". .|
|00003c00| 43 4f 44 45 20 76 61 6c | 75 65 73 3a 20 31 33 20 |CODE val|ues: 13 |
|00003c10| 3d 20 54 6f 6f 6c 2d 50 | 6f 73 69 74 69 6f 6e 2c |= Tool-P|osition,|
|00003c20| 20 31 34 20 3d 20 53 69 | 7a 65 2d 69 6e 2d 50 69 | 14 = Si|ze-in-Pi|
|00003c30| 78 65 6c 73 2c 20 31 38 | 20 3d 20 53 69 7a 65 2d |xels, 18| = Size-|
|00003c40| 69 6e 2d 43 68 61 72 73 | 2e 1f 0a 28 64 65 66 61 |in-Chars|...(defa|
|00003c50| 6c 69 61 73 20 27 73 75 | 6e 2d 67 65 74 2d 66 72 |lias 'su|n-get-fr|
|00003c60| 61 6d 65 2d 64 61 74 61 | 20 23 5b 28 63 6f 64 65 |ame-data| #[(code|
|00003c70| 29 20 22 c0 c1 c2 0b 21 | c4 51 21 88 c5 89 89 89 |) "....!|.Q!.....|
|00003c80| 1e 06 1e 07 1e 08 1e 09 | ca 20 89 16 09 cb 6b ac |........|. ....k.|
|00003c90| 89 0e 09 0e 08 42 16 08 | aa 6e cc cd 0e 08 9f ce |.....B..|.n......|
|00003ca0| 23 16 08 cf d0 0e 08 5c | 22 88 0e 08 d1 94 54 d1 |#......\|".....T.|
|00003cb0| 95 4f 16 06 0e 08 d1 95 | c5 4f 16 08 cf d0 0e 08 |.O......|.O......|
|00003cc0| 5c 22 88 0e 08 d1 94 54 | d1 95 4f 16 07 d2 0e 06 |\".....T|..O.....|
|00003cd0| 21 d2 0e 07 21 2c 42 87 | 22 20 5b 73 65 6e 64 2d |!...!,B.|" [send-|
|00003ce0| 73 74 72 69 6e 67 2d 74 | 6f 2d 74 65 72 6d 69 6e |string-t|o-termin|
|00003cf0| 61 6c 20 22 1b 5b 22 20 | 69 6e 74 2d 74 6f 2d 73 |al ".[" |int-to-s|
|00003d00| 74 72 69 6e 67 20 63 6f | 64 65 20 22 74 22 20 6e |tring co|de "t" n|
|00003d10| 69 6c 20 79 20 78 20 73 | 74 72 20 63 68 61 72 20 |il y x s|tr char |
|00003d20| 72 65 61 64 2d 63 68 61 | 72 20 31 31 36 20 6d 61 |read-cha|r 116 ma|
|00003d30| 70 63 6f 6e 63 61 74 20 | 63 68 61 72 2d 74 6f 2d |pconcat |char-to-|
|00003d40| 73 74 72 69 6e 67 20 22 | 22 20 73 74 72 69 6e 67 |string "|" string|
|00003d50| 2d 6d 61 74 63 68 20 22 | 3b 5b 30 2d 39 5d 2a 22 |-match "|;[0-9]*"|
|00003d60| 20 30 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 | 0 strin|g-to-int|
|00003d70| 5d 20 34 20 28 23 24 20 | 2e 20 31 35 31 36 39 29 |] 4 (#$ |. 15169)|
|00003d80| 5d 29 0a 23 40 34 39 20 | 52 65 74 75 72 6e 73 20 |]).#@49 |Returns |
|00003d90| 66 6f 6e 74 20 73 69 7a | 65 20 69 6e 20 70 69 78 |font siz|e in pix|
|00003da0| 65 6c 73 3a 20 28 63 6f | 6e 73 20 59 73 69 7a 65 |els: (co|ns Ysize|
|00003db0| 20 58 73 69 7a 65 29 1f | 0a 28 64 65 66 61 6c 69 | Xsize).|.(defali|
|00003dc0| 61 73 20 27 73 6d 3a 3a | 66 6f 6e 74 2d 73 69 7a |as 'sm::|font-siz|
|00003dd0| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 c0 c2 21 1b |e #[nil |"..!..!.|
|00003de0| 89 1c 40 0b 40 a5 0c 41 | 0b 41 a5 2a 42 87 22 20 |..@.@..A|.A.*B." |
|00003df0| 5b 73 75 6e 2d 67 65 74 | 2d 66 72 61 6d 65 2d 64 |[sun-get|-frame-d|
|00003e00| 61 74 61 20 31 34 20 31 | 38 20 63 68 72 20 70 69 |ata 14 1|8 chr pi|
|00003e10| 78 5d 20 34 20 28 23 24 | 20 2e 20 31 35 37 35 32 |x] 4 (#$| . 15752|
|00003e20| 29 5d 29 0a 23 40 35 33 | 20 43 61 63 68 65 64 20 |)]).#@53| Cached |
|00003e30| 66 72 61 6d 65 2d 74 6f | 2d 77 69 6e 64 6f 77 20 |frame-to|-window |
|00003e40| 58 2d 4f 66 66 73 65 74 | 20 66 6f 72 20 73 6d 3a |X-Offset| for sm:|
|00003e50| 3a 6d 65 6e 75 2d 6b 6c | 75 64 67 65 1f 0a 28 64 |:menu-kl|udge..(d|
|00003e60| 65 66 76 61 72 20 73 6d | 3a 3a 6d 65 6e 75 2d 6b |efvar sm|::menu-k|
|00003e70| 6c 75 64 67 65 2d 78 20 | 6e 69 6c 20 28 23 24 20 |ludge-x |nil (#$ |
|00003e80| 2e 20 31 35 39 31 33 29 | 29 0a 23 40 35 33 20 43 |. 15913)|).#@53 C|
|00003e90| 61 63 68 65 64 20 66 72 | 61 6d 65 2d 74 6f 2d 77 |ached fr|ame-to-w|
|00003ea0| 69 6e 64 6f 77 20 59 2d | 4f 66 66 73 65 74 20 66 |indow Y-|Offset f|
|00003eb0| 6f 72 20 73 6d 3a 3a 6d | 65 6e 75 2d 6b 6c 75 64 |or sm::m|enu-klud|
|00003ec0| 67 65 1f 0a 28 64 65 66 | 76 61 72 20 73 6d 3a 3a |ge..(def|var sm::|
|00003ed0| 6d 65 6e 75 2d 6b 6c 75 | 64 67 65 2d 79 20 6e 69 |menu-klu|dge-y ni|
|00003ee0| 6c 20 28 23 24 20 2e 20 | 31 36 30 31 35 29 29 0a |l (#$ . |16015)).|
|00003ef0| 23 40 36 35 20 49 66 20 | 73 75 6e 66 6e 73 2e 63 |#@65 If |sunfns.c|
|00003f00| 20 75 73 65 73 20 3c 4d | 65 6e 75 5f 42 61 73 65 | uses <M|enu_Base|
|00003f10| 5f 4b 6c 75 64 67 65 3e | 20 74 68 69 73 20 66 75 |_Kludge>| this fu|
|00003f20| 6e 63 74 69 6f 6e 20 6d | 75 73 74 20 62 65 20 68 |nction m|ust be h|
|00003f30| 65 72 65 21 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ere!..(d|efalias |
|00003f40| 27 73 6d 3a 3a 6d 65 6e | 75 2d 6b 6c 75 64 67 65 |'sm::men|u-kludge|
|00003f50| 20 23 5b 6e 69 6c 20 22 | 08 ac 8b c1 20 89 1a 40 | #[nil "|.... ..@|
|00003f60| c3 5c 5c 10 c4 15 29 c6 | c7 21 89 1e 08 40 08 5c |.\\...).|.!...@.\|
|00003f70| 5c 0e 08 41 0d 5c 5c 29 | 42 87 22 20 5b 73 6d 3a |\..A.\\)|B." [sm:|
|00003f80| 3a 6d 65 6e 75 2d 6b 6c | 75 64 67 65 2d 79 20 73 |:menu-kl|udge-y s|
|00003f90| 6d 3a 3a 66 6f 6e 74 2d | 73 69 7a 65 20 66 73 20 |m::font-|size fs |
|00003fa0| 38 20 34 20 73 6d 3a 3a | 6d 65 6e 75 2d 6b 6c 75 |8 4 sm::|menu-klu|
|00003fb0| 64 67 65 2d 78 20 73 75 | 6e 2d 67 65 74 2d 66 72 |dge-x su|n-get-fr|
|00003fc0| 61 6d 65 2d 64 61 74 61 | 20 31 33 20 77 6c 5d 20 |ame-data| 13 wl] |
|00003fd0| 34 20 28 23 24 20 2e 20 | 31 36 31 31 37 29 5d 29 |4 (#$ . |16117)])|
|00003fe0| 0a 23 40 31 31 39 20 53 | 65 74 20 6d 61 72 6b 20 |.#@119 S|et mark |
|00003ff0| 61 6e 64 20 79 61 6e 6b | 20 74 68 65 20 63 6f 6e |and yank| the con|
|00004000| 74 65 6e 74 73 20 6f 66 | 20 74 68 65 20 63 75 72 |tents of| the cur|
|00004010| 72 65 6e 74 20 73 75 6e | 77 69 6e 64 6f 77 73 20 |rent sun|windows |
|00004020| 73 65 6c 65 63 74 69 6f | 6e 2e 0a 49 6e 73 65 72 |selectio|n..Inser|
|00004030| 74 20 63 6f 6e 74 65 6e | 74 73 20 69 6e 74 6f 20 |t conten|ts into |
|00004040| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00004050| 65 72 20 61 74 20 70 6f | 69 6e 74 2e 1f 0a 28 64 |er at po|int...(d|
|00004060| 65 66 61 6c 69 61 73 20 | 27 73 75 6e 2d 79 61 6e |efalias |'sun-yan|
|00004070| 6b 2d 73 65 6c 65 63 74 | 69 6f 6e 20 23 5b 6e 69 |k-select|ion #[ni|
|00004080| 6c 20 22 c0 c1 21 88 c2 | c3 20 21 87 22 20 5b 73 |l "..!..|. !." [s|
|00004090| 65 74 2d 6d 61 72 6b 2d | 63 6f 6d 6d 61 6e 64 20 |et-mark-|command |
|000040a0| 6e 69 6c 20 69 6e 73 65 | 72 74 2d 73 74 72 69 6e |nil inse|rt-strin|
|000040b0| 67 20 73 75 6e 2d 67 65 | 74 2d 73 65 6c 65 63 74 |g sun-ge|t-select|
|000040c0| 69 6f 6e 5d 20 32 20 28 | 23 24 20 2e 20 31 36 33 |ion] 2 (|#$ . 163|
|000040d0| 35 39 29 20 22 2a 22 5d | 29 0a 23 40 36 37 20 53 |59) "*"]|).#@67 S|
|000040e0| 65 74 20 74 68 65 20 73 | 75 6e 77 69 6e 64 6f 77 |et the s|unwindow|
|000040f0| 73 20 73 65 6c 65 63 74 | 69 6f 6e 20 74 6f 20 74 |s select|ion to t|
|00004100| 68 65 20 72 65 67 69 6f | 6e 20 69 6e 20 74 68 65 |he regio|n in the|
|00004110| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 2e | current| buffer.|
|00004120| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 75 6e |..(defal|ias 'sun|
|00004130| 2d 73 65 6c 65 63 74 2d | 72 65 67 69 6f 6e 20 23 |-select-|region #|
|00004140| 5b 28 62 65 67 20 65 6e | 64 29 20 22 c0 09 5c 6e |[(beg en|d) "..\n|
|00004150| 7b 21 87 22 20 5b 73 75 | 6e 2d 73 65 74 2d 73 65 |{!." [su|n-set-se|
|00004160| 6c 65 63 74 69 6f 6e 20 | 62 65 67 20 65 6e 64 5d |lection |beg end]|
|00004170| 20 33 20 28 23 24 20 2e | 20 31 36 36 30 37 29 20 | 3 (#$ .| 16607) |
|00004180| 22 72 22 5d 29 0a 23 40 | 31 37 34 20 53 75 73 70 |"r"]).#@|174 Susp|
|00004190| 65 6e 64 20 65 6d 61 63 | 73 74 6f 6f 6c 2e 0a 49 |end emac|stool..I|
|000041a0| 66 20 72 75 6e 6e 69 6e | 67 20 75 6e 64 65 72 20 |f runnin|g under |
|000041b0| 61 73 20 61 20 64 65 74 | 61 63 68 65 64 20 70 72 |as a det|ached pr|
|000041c0| 6f 63 65 73 73 20 65 6d | 61 63 73 74 6f 6f 6c 2c |ocess em|acstool,|
|000041d0| 0a 79 6f 75 20 64 6f 6e | 27 74 20 77 61 6e 74 20 |.you don|'t want |
|000041e0| 74 6f 20 73 75 73 70 65 | 6e 64 20 20 28 74 68 65 |to suspe|nd  (the|
|000041f0| 72 65 20 69 73 20 6e 6f | 20 77 61 79 20 74 6f 20 |re is no| way to |
|00004200| 72 65 73 75 6d 65 29 2c | 20 0a 6a 75 73 74 20 63 |resume),| .just c|
|00004210| 6c 6f 73 65 20 74 68 65 | 20 77 69 6e 64 6f 77 2c |lose the| window,|
|00004220| 20 61 6e 64 20 77 61 69 | 74 20 66 6f 72 20 72 65 | and wai|t for re|
|00004230| 6f 70 65 6e 69 6e 67 2e | 1f 0a 28 64 65 66 61 6c |opening.|..(defal|
|00004240| 69 61 73 20 27 73 75 73 | 70 65 6e 64 2d 65 6d 61 |ias 'sus|pend-ema|
|00004250| 63 73 74 6f 6f 6c 20 23 | 5b 28 26 6f 70 74 69 6f |cstool #|[(&optio|
|00004260| 6e 61 6c 20 73 74 75 66 | 66 73 74 72 69 6e 67 29 |nal stuf|fstring)|
|00004270| 20 22 c0 c1 21 88 5c 6e | ab 84 c3 5c 6e 21 88 c3 | "..!.\n|...\n!..|
|00004280| c4 21 88 c0 c5 21 87 22 | 20 5b 72 75 6e 2d 68 6f |.!...!."| [run-ho|
|00004290| 6f 6b 73 20 73 75 73 70 | 65 6e 64 2d 68 6f 6f 6b |oks susp|end-hook|
|000042a0| 20 73 74 75 66 66 73 74 | 72 69 6e 67 20 73 65 6e | stuffst|ring sen|
|000042b0| 64 2d 73 74 72 69 6e 67 | 2d 74 6f 2d 74 65 72 6d |d-string|-to-term|
|000042c0| 69 6e 61 6c 20 22 1b 5b | 32 74 22 20 73 75 73 70 |inal ".[|2t" susp|
|000042d0| 65 6e 64 2d 72 65 73 75 | 6d 65 2d 68 6f 6f 6b 5d |end-resu|me-hook]|
|000042e0| 20 32 20 28 23 24 20 2e | 20 31 36 37 38 30 29 20 | 2 (#$ .| 16780) |
|000042f0| 6e 69 6c 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |nil]).(b|yte-code|
|00004300| 20 22 c0 c1 21 88 c2 c1 | c3 5c 22 88 c4 c5 21 ac | "..!...|.\"...!.|
|00004310| 83 c6 20 15 c5 0e 07 42 | 16 07 c8 c9 21 87 22 20 |.. ....B|....!." |
|00004320| 5b 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 |[make-va|riable-b|
|00004330| 75 66 66 65 72 2d 6c 6f | 63 61 6c 20 63 75 72 72 |uffer-lo|cal curr|
|00004340| 65 6e 74 2d 6c 6f 63 61 | 6c 2d 6d 6f 75 73 65 6d |ent-loca|l-mousem|
|00004350| 61 70 20 73 65 74 2d 64 | 65 66 61 75 6c 74 20 6e |ap set-d|efault n|
|00004360| 69 6c 20 62 6f 75 6e 64 | 70 20 63 75 72 72 65 6e |il bound|p curren|
|00004370| 74 2d 67 6c 6f 62 61 6c | 2d 6d 6f 75 73 65 6d 61 |t-global|-mousema|
|00004380| 70 20 6d 61 6b 65 2d 6d | 6f 75 73 65 6d 61 70 20 |p make-m|ousemap |
|00004390| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000043a0| 74 20 70 72 6f 76 69 64 | 65 20 73 75 6e 2d 6d 6f |t provid|e sun-mo|
|000043b0| 75 73 65 5d 20 33 29 0a |                         |use] 3).|        |
+--------+-------------------------+-------------------------+--------+--------+